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BACKGROUND 


Quantitative  values  for  torque  and  rotating  band  stresses  for 
AMCAWS  30m  projectiles  were  required  to  meaningfully  evaluate  different 
types  of  barrel  twists.  Displacement,  velocity  down  barrel,  and  chamber 
pressure  at  various  time  increments  were  used  as  input  for  a computer 
program  (Appendix  A,  Barrel /Torque  Comparisons)  that  calculated,  as  its 
principle  output,  torque,  bearing  stress,  and  shear  stress  at  the 
rotating  band  for  each  time  increment.  The  interior  ballistics  data  was 
based  on  an  interferometer  trace  obtained  at  the  Hercules,  Inc.,  test 
range  in  Magna,  Utah.  This  trace,  Figure  1,  is  of  excellent  quality  and 
is  one  of  the  best  obtained.  The  particular  round  examined  had 
essentially  nominal  chamber  pressure,  action  time,  and  muzzle  velocity. 

Six  barrels  with  different  twist  functions  were  compared  in  the 
program  using  the  same  interior  ballistic  parameters.  The  barrel  types 
were:  (1)  current  Rock  Island  Arsenal  produced  barrels  (RIA); 

(2)  current  Hercules  barrel  (Hercules);  (3)  constant  twist  barrel  and 
exponential  gain  twist  barrei;  with  exponents  of  (4)  N = 1.6,  (5)  N = 
1.8,  and  (6)  N = 2.0.  These  barrels  are  fully  described  in  the 
description  of  barrels. 

The  work  to  obtain  torque  and  stress  values  was  started  as  part 
of  a routine  investigation  to  complement  the  AMCAWS  30mm  development 
work,  but  the  work  pace  was  accelerated  when  in-flight  pictures 
indicated  some  stripping  of  bands  (but  no  instability)  on  some  rounds 
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FIGURE  1,  MICROWAVE  DISTANCE  VS  TIME  AND  PRESSURE  VS  TIME  FOR  AMC  30  FIRING  NO.  A-421 


fired  in  the  RIA  barrels.  This  stripping  was  first  noticed  in  June 
1973.  Work  was  begun  on  this  effort  in  late  August  1973,  at  which  time 
the  RIA  and  Hercules  barrels  were  in  use.  The  decision  to  fabricate  a 
constant  twist  barrel  and  an  N = 1.6  twist  barrel  was  made  in  September 
1973  and  these  two  barrels  became  available  at  Rock  Island  in  June  1974. 
The  firing  tests  were  conducted  in  late  October  1974.  The  computer 
program  itself  was  extensively  rewritten  after  July  1974  to  make  use  of 
a CALCOMP  graphics  system  that  became  operational  in  Rodman  Laboratory 
during  that  month. 
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DESCRIPTION  OF  BARRELS 


1.  RIA  BARREL.  This  is  an  85-inch  barrel  made  to  Rock  Island 
Arsenal  Print  74D40070.  This  barrel  has  a 1.0  inch  throat,  free  run 
to  4.0  inches,  gain  twist  to  73.25  inches  and  constant  twist  at  an 
8°53'  exit  angle  to  the  muzzle.  The  equation  for  the  twist  was  ob- 
tained by  fitting  a curve  to  the  x-y  layout  coordinates.  The  equation 
is  y = B0  + Bj  (X-4.0)  + B2  (X-4.0)2  + B3  (X-4.0)3  + B„  (X-4.0)\  The 
coefficients  are  listed  in  the  Barrel/Torque  Comparisons  program  in 
subroutine  AAMC  30  (Appendix  A). 

2.  HERCULES.  This  is  an  89-inch  barrel.  This  barrel  has  a 
1.0  inch  throat  and  gain  twist  to  the  muzzle  at  an  8°5'  exit  angle. 

The  barrel  has  no  constant  twist  exit  portion.  The  equation  of  the 
rifling  layout  is: 

Y = .01008  (X-1.0)1*5 

3.  CONSTANT.  This  is  an  85-inch  barrel  with  a 1.0  inch  throat 
and  constant  twist  throughout  the  remaining  barrel  length.  The 
rifling  angle  is  8°58'. 

N = 1.6.  This  is  an  85-inch  barrel.  This  barrel  has  a 1.0 
inch  throat,  gain  twist  to  81.0  inches  and  constant  twist  to  the 
muzzle  at  an  8°58‘  exit  angle.  The  equation  of  the  rifling  is: 

Y = .00641042  (X  + 14.1582)1*6 
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The  gain  twist  function  ip  this  barrel  starts  with  a rifling 
angle  of  3°0’  at  X = 1.0  inch  and  gains  to  8°58'  at  X = 81.0  inches. 

5.  N = 1 .8.  This  is  identical  to  barrel  N = 1.6  except  the 
gain  portion  of  rifling  equation  is: 

Y = .00208633  (X  + 25.9727) i*8 

6.  N = 2.0.  This  is  identical  to  barrel  N = 1.6  except  the 
gain  portion  of  rifling  equation  is: 

Y = .000658627  (X  + 38.78559)2*° 

All  the  barrels  described  have  20  lands.  The  depth  of  groove 
for  the  RIA  barrel  is  .019  inches.  The  groove  depth  for  the  remaining 
barrels  is  .025  inches. 

The  notation  N = refers  to  the  type  of  barrel  that  has  an 
initial  rifling  angle  of  3°.  with  an  exponential  gain  twist  portion  and 
a constant  twist  exit  portion.  N = barrels  include  the  N = 1.6, 

N = 1.8  and  N = 2.C  barrels. 
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INTERIOR  BALLISTICS  PERFORMANCE 


The  AMCAWS  30mm  round  (Figure  2)  Is  a fully  telescoped,  cased- 
consoliaated  round  that  Is  currently  designed  to  operate  in  a stop 
mode.  The  primer  is  struck,  which  ignites  a 45-grain  booster  charge. 

The  ignition  of  the  booster  debullets  the  projectile  and  forces  it 
into  the  bore  where,  after  a total  travel  of  generally  less  than 
5 inches  past  the  barrel  face,  the  projectile  stops  (thus  a stop  mode). 
The  hot  gas  from  the  booster  also  acts  as  an  igniter  for  the  3000  grain 
consolidated  main  charge,  which  causes  the  large  pressure  rise  that 
drives  the  projectile  out  the  muzzle  at  about  3600  ft/sec. 

The  set  of  interior  ballistics  data  used  for  the  barrel  compar- 
isons was  obtained  by  considering  the  round  ballistics  to  be  composed 
of  three  separate  segments:  (1)  the  velocity,  position,  chamber 

pressure,  and  time  data  points  after  primer  strike  and  up  to  the 
projectile  stopping  in  the  bore;  (2)  the  data  points  between  stop  and 
restart;  and  (3)  the  data  points  after  restart  to  muzzle  exit.  These 
three  regions  and  the  times  of  occurrence  are  illustrated  in  Figure  l.a., 
which  is  an  interferometer  trace  of  a firing  conducted  at  Hercules, 

Inc. , Magna,  "tah. 

Figure  l.a.  shows  the  total  event  with  time  progressing  from 
right  to  left  at  two  milliseconds  per  centimeter.  The  microwave  pulses 
show  that  initial  movement  of  the  telescoped  projectile  accounted  for 
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about  3-1/4  cycles  in  about  3 milliseconds.  The  calibration  factor  for 
this  firing  is  2.567  inches  per  cycle*  thus  the  3-1/4  cycles  indicates 
that  the  nose  of  the  projectile  moved  approximately  8.34  inches  before 
stopping.  Using  values  of  4.4  inches  between  the  projectile  nose 
(point  of  reflection  of  microwave  beam)  and  the  center  of  the  rotating 
band  and  a starving  position  of  .25  inches  between  the  nose  and  the 
start  of  the  barrel,  the  position  of  the  rotating  band  when  stopped  is 
then  3.69  inches  from  the  barrel  face.  The  microwave  pulses  show  the 
projectile  to  be  stopped  for  approximately  4 milliseconds  (2  cm  on  the 
trace)  and  then  the  projectile  accelerates  rapidly  with  the  rise  in 
chamber  pressure.  The  rapid  acceleration  is  seen  more  clearly  in 
Figure  l.b.,  where  an  expanded  time  scale  is  shown. 

The  most  important  of  the  three  interior  ballistics  segments,  as 
far  as  sustained  high  torque  seen  by  the  rotating  band  is  concerned, 
is  the  restart  to  muzzle  exit  portion.  Fortunately,  the  time  scale, 
when  expanded  (Figure  l.b.),  has  excellent  resolution  of  the  traces  and 
can  be  reduced  to  the  graph  of  Figure  3.  Corresponding  chamber  pressure 
for  each  time  is  also  obtained.  A smooth  curve  is  fit  through  the  raw 
velocity  data  points  and  the  equation  of  this  curve  generated.  This 
equation  can  be  differentiated  to  yield  projectile  acceleration  down 
the  tube  for  this  segment. 

The  second  segment  (between  stop  and  restart)  has  a relatively 
constant  pressure  and  no  projectile  movement.  Pressure,  velocity, 
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FIGURE  3,  VELOCITY,  PRESSURE  AND  TIME  VS  BARREL  POSITION,  AMCAWS  30  FIRING  NO,  A421 


position,  acceleration  and  time  data  points  are  easily  generated  for 
this  segment. 

The  first  segment  (primer  strike  to  stop)  is  the  hardest  to 
resolve  to  the  point  where  ballistic  data  points  can  be  obtained  that 
have  a high  degree  of  confidence.  The  overall  picture  (Figure  l.a.) 
gives  the  time  of  occurrence  and  indicates  some  approximate  values  of 
position  and  time.  The  values  obtained  from  the  trace  and  other  work 
done  with  booster  performance  enables  "data"  to  be  manufactured  which 
should  reasonably  duplicate  the  performance  of  the  round  in  the  first 
segment.  This  data  does  not  have  as  high  a degree  of  confidence  as 
the  third  segment  data  because  of  the  poorer  resolution,  but  torques 
are  only  seen  in  this  segment  for  an  extremely  short  time  and  projectile 
velocity  is  low,  so  possible  inaccuracies  in  this  segment  of  the  data 
are  not  too  important  to  the  conclusions  of  this  report. 

Data  representing  the  second  segment  was  used  as  input  for  data 
generating  program  (Appendix  B,  AMCAWS  30mm  Interior  Ballistics).  The 
program  chiefly  uses  equations  generated  for  position,  velocity,  and 
chamber  pressure  as  functions  of  time  for  segments  one  and  three  and 
uses  these  equations  to  calculate  the  IB  parameters  for  these  segments. 
The  program  then  links  the  data  of  tne  three  ballistic  segments  and 
punches  a complete  data  deck.  This  deck  represents  the  nominal 
interior  ballistics  of  the  AMCAWS  3f^m  round,  from  primer  strike  to 
muzzle  exit.  The  interior  ballistics  of  the  round  are  illustrated  in 
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Figures  4 and  5.  One  result  of  obtaining  acceleration  by  differen- 
tiating tile  smoothed  velocity  data  can  be  seen  by  observing  the 
slight  discrepancy  between  the  chamber  pressure  shape  and  the  shape 
of  the  curve  for  acceleration.  This  problem  is  caused  by  an  inability 
to  more  accurately  resolve  the  original  interferometer  trace.  The 
acceleration  curve  should  be  very  close  to  the  'correct'  curve  and 
it  is  not  felt  that  the  results  of  the  computer  program  are  in  any 
way  unduly  compromised. 
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BALLISTICS  OF  THE  ROUND 
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DEVELOPMENT  OF  TORQUE  AND  STRESS  EQUATIONS 


Figure  6 shows  a rifling  curve  in  the  gun  tube.  Y is  the  arc 
length  subtended  by  0,  R is  the  nominal  30MM  radius  (.59175  inches) 
and  X is  the  distance  down  the  bore  the  rotating  band  has  traveled. 
Assuming  no  shear  in  the  rotating  band,  the  rotation  of  the  projectile 
after  traveling  X inches  is  0. 

Torque  and  stress  relationships  will  be  obtained  using  the 
equation, 

2 

Torclue  ' 'polar' 

2 

therefore  —■  is  a quantity  of  much  interest.  From  Figure  6, 
dt 

RO  = Y 

d (RQ)  = R d0  = dy_  = dy_  x dx 
dt  3tT  dt  dx  dt 

but, 

dx 

-fir  - velocity  of  projectile  down  the  tube,  thus 
clt  = 1 f dx  (velocity)l  • Differentiating  again 
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RIFLING  PROFILE- 
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However , 

d2x  _ 


dt 

d20  _ 1 


= acceleration  of  projectile  down  tube,  thus 


dt 

Summarizing. 
0 


R 


4^-  (acceleration)  + ^ (velocity)2 
ax  dx 

— M 


0 * jf[a£  velocity J 

0 = 1 acce'  oration  + (velocity)2! 


Values  for  velocity  and  acceleration  (as  discussed  in  the 
INTERIOR  BALLISTICS  portion  of  this  report)  are  available  to  the 
BARREL/TORQUE  COMPARISONS  program  so  that  with  the  proper  equation  of 
the  rifling  for  the  barrel  under  consideration  6 can  be  determined 
for  any  position  or  time. 


16 


Given  the  values  for  e,  the  other  calcul aticiis  are  quite 
straightforward.  Torque  is  obtained  from  the  relationship 

^ ~ *polar  9 

Torque,  however,  can  be  considered  to  be  the  result  of  a dis- 
tributed force  acting  at  the  rotating  band  (nominal  radius  to  rotating 
band  is  .59175  inches).  The  total  force  acting  to  create  the  torque 
is  then 

EF  = T/R. 

The  area  upon  which  this  total  force  acts  is,  of  course,  the 
bearing  faces  of  the  engraved  rotating  band  (Figure  7).  The  bearing 
stress  is  then 

bearing  = (bearin9  face  area). 

Likewise,  the  shearing  stress  on  the  band  is  then 

Sshear  = (sheann9  face  area). 

The  sketch  of  Figure  7. a.  shows  the  dimensions  of  a rotating 
band  that  was  fired  through  a RIA  barrel.  The  nominal  groove  depth 
of  the  RIA  barrel  is  .019  inches  so  the  summation  of  bearing  face  areas 
is  .137  square  inches.  The  Hercules  barrel  has  a groove  depth  of  .025 
inches  so  its  total  bearing  face  area  is  .180  square  inches.  The  total 
shear  for  the  recovered  projectile  is  .677  square  inches. 
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DIMENSIONS 


ROTATING  BAND  SEGMENT 

FORCES  TO  ROTATE  PROJECTILE 
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OBSERVATIONS 


There  are  any  number  of  ways  to  interpret  the  numbers  generated 
by  the  Barrel /Torque  Comparisons  computer  program.  There  is  also  a 
high  probability  that  any  arbitrary  interpretation  and  the  corresponding 
conclusions  as  to  predicting  the  success  of  the  rotating  band  and  barrel 
twist  combination  will  be  incorrect.  The  most  important  aspect  that 

i 

must  be  considered  when  evaluating  the  program  results  and  making  useful 
conclusions  is  the  actual  mechanism  of  rotating  band  failure  that  may 
occur. 


Factors  which  may  affect  the  ultimate  success  of  a rotating  band 
probably  include  a combination  of  factors  such  as  (1)  peak  torques, 

(2)  time  duration  of  high  torques,  (3)  driving  edge  pressure,  (4)  area 
remaining  that  resists  shear,  (5)  band  properties,  (6)  band  melting, 

(7)  barrel  wear,  and  probably  several  other  considerations. 

The  way  in  which  these  named  and  unnamed  factors  interact  in  the 
AMCAWS  30mm  system  to  determine  the  final  condition  of  the  rotating 
band  is,  of  course,  the  mechanism  of  rotating  band  failure.  Determining 
the  actual  mechanisms  of  failure  for  the  rotating  bands  of  high  per- 
formance ammunition  is  certainly  a large  scale  test  and  research  program 
that  is  far  beyond  the  scope  of  this  report.  A literature  search 
(unclassified)  has  been  relatively  unsuccessful  in  uncovering  work  that 
specifically  deals  with  copper  rotating  band  failure  in  small  to  medium 
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calibers.  What  is  primarily  the  scope  of  this  report  is  to  provide  a 
basis  for  selecting  a replacement  for  the  RIA  twist  barrels.  Hope- 
fully, with  the  fabrication  and  availability  of  RIA,  N = 1.6,  constant 
twist,  and  Hercules  barrels,  some  correlation  between  the  program 
results  and  actual  firing  test  results  can  be  developed.  Developing 
such  a correlation  is  a secondary  portion  of  the  scope  of  this  report. 
If  a correlation  between  actual  results  and  some  combination  of 
numbers  generated  by  the  program  can  be  found,  it  might  be  able  to  act 
as  a quick  and  coarse  means  of  evaluating  barrel  twist  suitability  for 
future  or  proposed  high  performance  medium  caliber  weapon  systems.  The 
remainder  of  this  report  is  written  with  that  in  mind.  Some  general 
discussion  of  barrel  twists  is  then  pertinent. 

Any  gain  twist  barrel  is' sensitive  to  the  interior  ballistics 
of  the  round.  A round  with  slightly  delayed  peak  pressure  and  thus 
delayed  peak  acceleration  will  be  in  a steeper  portion  of  the  gain 
twist  curve  and  therefore  higher  than  optimum  torques  develop.  The 
present  RIA  barrel  configuration  has  good  torque  characteristics  for 

i 

certain  ballistic  performance,  unfortunately  they  are  not  similar  to 
the  performance  of  the  current  AMCAWS  30mm  round. 

Another  problem  common  to  gain  twist  barrels  is  the  rifling 
angle  sweeping  action  that  reduces  the  shear  area  of  the  rotating  band 
and  continually  puts  high  bearing  loads  on  the  forward  portion  of  the 
band.  This  swepp  is  due  to  the  constantly  increasing  rifling  angle 
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in  the  gain  portion  of  the  barrel  and  as  illustrated  in  sketch  of 
Figure  7.b.  The  3°  initial  twist  for  the  N = barrels  was  chosen 
because  it  was  felt  the  almost  9°  sweep  on  the  RIA  barrel  was  one  of 
the  major  contributing  factors  to  the  failure  of  that  barrel -rotating 
band  combination.  The  fact  that  there  is  evidence  of  band  stripping 
on  the  RIA  barrel  but  no  in-flight  instability  of  the  round  tends  to 
indicate  the  bands  finally  do  strip  after  the  round  has  attained 
sufficient  spin  to  be  stable.  The  higher  spin  rates  necessary  to 
stabilize  the  round  can  only  be  imparted  to  the  round  in  the  muzzle 
portion  of  the  gun  tube  where  the  rifling  angles  are  high.  Thus,  it 
appears  the  bands  do  strip  in  the  muzzle  region  of  the  RIA  barrel, 
after  experiencing  most  of  the  8°58'  sweep. 

The  behavior  of  gain  twist  barrels,  especially  with  regard  to 
increasing  exponents,  can  be  seen  in  Figures  8 and  9.  The  peak  torque 
values  occur  later  with  increasing  exponents.  The  peak  values  are  less 
with  increasing  exponents  but  the  curve  itself  is  much  flatter.  These 
effects  are  particularly  noticeable  in  the  torque  vs.  displacement 
curve,  Figure  8. 

The  barrel  that  appears  most  attractive,  of  the  gain  twist 
barrels  considered,  is  the  N = 1.6  barrel.  A constant  twist  exit  portion 
is  desired  so  that  the  torque  is  low  at  projectile  exit.  Four  to  five 
calibers  of  constant  twist  should  be  long  enough  to  minimize  any 
pertubations  that  might  be  caused  by  a high  torque  at  exit.  The 
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TORQUE  COMPflRISJONS 


N = 1-6  barrel  has  a slightly  higher  peak  torque  than  the  N = 1 .8  or 
the  N = 2.0  barrels,  but  it  should  handle  slight  round-to-round 
ballistic  changes  better. 

Constant  twist  barrels  are,  compared  to  gain  twist,  relatively 
insensitive  to  interior  ballistic  changes.  Constant  twist  causes  none 
of  the  sweeping  action  found  in  gain  twist  barrels,  so  the  shear  area 
is  always  at  a maximum  for  any  given  exit  angle.  Unfortunately,  con- 
stant twist  barrels  exhibit  higher  torques  than  their  gain  twist 
counterparts.  The  time  duration  for  the  peak  torque  region  is 
correspondingly  less.  This  is  shown  by  the  sharper  peak  on  the  torque 
vs.  displacement  curve  (Figure  8). 

Constant  twist  barrels  can  also  be  fabricated  with  more  manufac- 
turing techniques  than  can  gain  twist  barrels.  Broaching,  swaging,  or 
hammer  forging  (which  are  possible  only  with  constant  twist)  are 
generally  cheaper  than  hook  tooling  or  the  more  exotic  ECM  techniques, 
especially  in  a quantity  production  environment.  The  barrels  used  to 
date  in  the  AMCAWS  30  program  have  all  been  hook  tooled. 
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FIRING  TEST 


Completion  of  the  fabrication  of  an  N = 1.6  and  a constant  twist 
barrel,  combined  with  the  availability  of  an  RIA  twist  barrel,  allowed 
a firing  test  to  be  conducted  that  was  designed  to  evaluate  the  three 
band/barrel  combinations.  A series  of  28  shots  with  basic  Mann  barrel 
instrumentation  (chamber  pressure,  round  action  time,  velocity)  was 
fired  with  down-range  photographic  equipment  set  up  (Figure  10)  so  that 
in-flight  pictures  of  the  fired  AMCAWS  30  rounds  could  be  obtained.  The 
firing  data  for  these  rounds  is  listed  in  Table  1.  The  ammunition  used 
is  Lot  X05.  All  three  barrels  had  less  than  20  rounds  each  fired 
through  them  when  the  test  began. 

The  pictures  obtained  were  of  excellent  clarity.  The  three 
pictures  chosen  for  each  barrel  for  inclusion  in  this  report  are  very 
representative  of  all  the  pictures  taken. 

Rounds  63,  68,  and  72  are  rounds  fired  through  the  RIA  twist 
barrel.  These  pictures  show  the  bands  completely  stripped.  The  rounds 
are  stable  as  shown  in  the  pictures.  Rounds  fired  through  RIA  twist 
barrels  have  always  targeted  well.  This  reaffirms  the  belief  that  these 
bands  stripped  only  after  a large  enough  spin  rate  was  obtained  for  the 
round  to  be  stable. 

Rounds  74,  75,  and  80  are  rounds  fired  through  the  constant  twist 
barrel.  The  bands  on  these  projectiles  are  in  excellent  condition. 
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Rounds  86,  87,  and  88  are  rounds  fired  through  the  N = 1,6 
twist  barrel.  These  bands  are  also  in  good  condition.  The  gain  twist 
sweep  mentioned  earlier  is  easily  seen.  The  driving  edge  face  is  in 
very  good  condition  for  the  entire  width  of  the  band. 


f 


AM  CAWS  30mm  Mann  Barrel 
Rd.  74  - BBL-  73D40046  - Constant  Twist  Barrel 
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Table  I.  In-Flight  Pictures  for  Rounds  Fired  Through  RIA,  Constant,  N = 1.6  Barrels 


EVALUATION  OF  RESULTS  AND  PREDICTIVE  MODEL 


The  initial  decision  to  fabricate  the  N = 1.6  barrel  was  made 
after  the  results  of  an  early  version  of  the  Barrel /Torque  Comparisons 
program  were  evaluated  and  the  N = 1.6  barrel  appeared  to  offer  a 
significant  reduction  in  peak  torque  and  it  was  noted  the  torque  curve 
approached  the  curve  for  the  Hercules  barrel  (which  was  known  not  to 
strip  bands). 

The  decision  to  fabricate  a constant  twist  barrel  was  made  because 
it  was  felt  that  so  basic  a barrel  type  should  be  evaluated  with  actual 
firings.  Historical  inertia  and  the  high  peak  torque  values  led  most 
everyone  involved  in  this  decision  to  feel  this  barrel  would  most 
certainly  fail  the  band. 

The  firing  tests  and  In-flight  pictures  indicate  that  future 
barrels  fabricated  for  the  AMCAWS  30  program,  using  current  interior 
ballistics  and  copper  rotating  bands,  should  have  constant  twist  or 
the  N = 1 .6  twist.  The  primary  objective  of  this  effort,  choosing  a 
replacement  for  the  RIA  twist  barrel,  has  been  met  with  that  recom- 
mendation. 

The  secondary  objective  of  this  report,  providing  some  coarse 
predictive  model  for  evaluating  the  suability  of  different  band, 
interior  ballistic,  and  twist  combinations,  is  not  as  directly  met.  A 
model  such  as  that  will  necessarily  be  simplistic  since,  as  stated, 
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the  "precise"  mechanism  of  rotating  band  failure  for  this  type  of 
high  performance  ammunition  has  not  been  explicitly  determined. 

The  model  must  also  be  simplistic  because  it  is  trying  to 
generalize  from  a small  amount  of  data  and  a limited  firing  test.  The 
approach  that  will  hopefully  result  in  constructing  the  predictive 
model  is  one  of  essentially  working  from  both  ends  to  the  middle 
(Figure  20).  One  end  is  the  conr-  ber  program  that  assumes  no  band 
failure  and  calculates  the  values  listed  in  the  data  matri\.  The  other 
end  is  the  result  of  the  firing  test.  The  middle  is  the  model  that 
will  evaluate  the  computer  program  output  and  predict  the  same  results 
as  occured  in  the  firing  test. 

The  model  presented  here  suggests  that  two  things  should  be  con- 
sidered; (1)  the  peak  stress  values  must  be  able  to  be  sustained  by 
the  rotating  band,  and  (2)  the  time  over  which  the  high  values  act  is 
very  important. 

The  first  consideration  seems  somewhat  obvious.  The  band 
properties  must  be  able  to  resist  the  peak  shear  and  bearing  loads. 
Shear  stresses  for  the  barrels  considered  do  not  exceed  10,000  PSI  so 
failure  in  shear  does  not  appear  to  be  a problem.  The  bearing  stresses 
are  much  higher,  approaching  40,000  PSI. 

The  difficulty  in  determining  if  the  peak  bearing  stress  values 
exceed  the  band  properties  is  finding  data  on  band  properties.  Pub- 
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1 i shed  data  from  materials  testing  usually  indicates  that  all  rotating 
bands  for  high  performance  ammunition  should  fail.  Most  materials 
testing  is  done  at  a rate  that  does  not  begin  to  approach  the  rate  of 
application  of  stresses  in  a gun.  High  strain  rate  tests  do  not  usually 
result  in  data  with  easily  comparable  units,  such  as  PSI.  Rate  of 
application  certainly  affects  the  ultimate  limits  of  bearing  strength 
and  shear  strength  for  the  band  material.  One  published  value^  suggests 
20,000  PSI  as  an  allowable  copper  rotating  band  bearing  stress,  but  the 
three  successful  barrels  exceed  that  value  by  11%  to  65%.  None  of  the 
barrels  considered  are  less  than  20,000  PSI  in  bearing.  The  constant 
twist  barrel  has  a peak  bearing  stress  of  33,200  PSI,  so  that  might  be 
considered  a minimum  for  a range  of  values  that  describe  the  ultimate 
limit  for  rotating  band  bearing  stress.  The  indications  that  the  band 
are  stripped  well  down  the  RIA  barrel  tend  to  suggest  that  the  band 
withstands  even  the  38,000  PSI  peak  bearing  stress  of  the  RIA  twist 
barrel  successfully. 

The  peak  torque,  bearing  stress,  and  shear  stress  values  are 
listed  in  Table  2.  These  are  the  peak  values  computed  in  the  program. 
Actually,  however,  the  peak  values  for  the  constant  or  the  N = 
barrels  are  not  listed.  The  nonspinning  rotating  band  moving  at  about 
200-250  fps  engraving  onto  the  9°  or  3°  twist  theoretically  (since  a 
no  shear  condition  is  assumed)  produces  infinite  peaks.  These  peaks 

Wolf  and  G.  Cochran,  Rotating  Band/Rifling  Interaction  Study; 

General  Fleet  ic  Report  72APB552,  November  1972. 
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Torques 


Barrel 

Band  Position  (in) 

Time  (msec) 

Torque  (in-lb) 

1.6 

30.4 

13.4 

2378 

108% 

1.8 

32.7 

13.5 

2316 

105% 

2.0 

35.1 

13.5 

2274 

103% 

RIA 

38.7 

13.6 

3101 

141% 

Hercules 

30.4 

13.5 

2197 

100% 

Constant 

6.7 

12.5 

3579 

162% 

Stresses 


Barrel 

Shearing  Stress  (psi) 

Bearing 

Stress 

(psi) 

1.6 

6613 

105% 

22210 

111% 

105% 

1.8 

6410 

102% 

21647 

108% 

102% 

2.0 

6288 

100% 

21250 

106% 

100% 

RIA 

9482 

150% 

38158 

190% 

179% 

Hercules 

66  i 6 

105% 

27052 

135% 

127% 

Constant 

9037 

143% 

33190 

165% 

156% 

Suggested  Values  20000 

100% 

PEAK.  TORQUE  AND  STRESS  VALUES 
TABLE  2. 
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last  for  such  a small  time  period  that  they  can  be  neglected.  The 
print-out  shows  torque  for  the  constant  twist  barrel  is  0.0  in-lbs 
when  the  band  is  .816  inches  into  the  barrel  and  57.1  in-lbs  at  a band 
position  of  1.124  inches.  The  time  increment  is  .1  milliseconds. 

These  values  infer  the  time  duration  for  the  yery  high  torque  values  are 
probably  on  the  order  of  microseconds.  The  Gun  Tube  Handbook  refers 
to  a five  microsecond  duration  for  the  decay  of  infinite  torque  to 
"acceptable"  values  for  a 37mm  gun  with  1.0  inch  free  run  and  a 
y = px.  rifling  profile.  This  background  is  presented  in  an  effort 
to  demonstrate  that  the  time  duration  of  peak  values  is  important 
(again,  there  is  also  a rate  of  application  relationship). 

Bearing  stresses  for  the  six  barrels  compared  appear  to  be  the 
moot  critical  values  coming  out  of  the  program.  The  range  of  these  values 
is  very  high  relative  to  all  published  data  (directly  comparable  or  not) 
for  properties  of  this  class  of  copper.  Bearing  stress  also  relates  to 
the  amount  of  displacem  :nt  the  driving  edge  experiences,  which  could 
significantly  change  the  remaining  shear  area.  This  might  possibly 
reduce  it  to  a critical  region.  Band  melting  might  be  accelerated  by 
higher  bearing  stresses  and  the  higher  frictional  forces.  These 
parameters,  which  can  be  associated  with  bearing  stress,  are  also  felt 
to  be  rate  dependent. 

_ 

AMCRM  706-252,  Engineering  Design  Handbook,  Gun  Series, 

Gun  Tubes,  February  1964. 
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The  idea  of  time  duration  and  rate  dependence  is  the  reason  a 
comparison  of  the  integral  of  bearing  stresses  with  respect  to  time 
is  offered  as  the  second  test  in  this  two-step  model.  The  program  uses 
a trapazoid  summation  to  integrate  torque,  bearing  stresses,  and  shear 
stresses  with  respect  to  time  and  position.  The  values  are  listed 
in  Table  3. 

Once  again,  a number  which  represents  the  dividing  line  between 
success  and  failure,  for  the  integral  test,  is  not  readily  available. 

The  dividing  line  value  appears  to  be  between  48  PSI-sec  and  55  PSI-sec, 
assuming  the  RIA  barrel  does  not  cause  band  failure  due  to  the  first  test. 

The  proposed  predictive  model  utilizes:  (1)  a computer  program 

to  calculate  stress  values  caused  by  proposed  interior  ballistic 
performance  acting  on  the  candidate  rifling  profiles,  (2)  rotating 
band  materials  properties  that  can  be  meaningfully  compared  to  the 
cakulated  stress  values,  and  (3)  a comparison  of  the  integrals  of  the 
bearing  stress  versus  time  curves  for  the  candidate  barrels.  This 
predictive  model,  based  on  very  limited  data  and  without  precise  know- 
ledge of  the  mechanism  of  band  failure  that  actually  occurs,  is  some- 
what incomplete.  The  model  will  provide  a basis  for  evaluating  any 
significantly  different  interior  ballistic  performance,  such  as  when 
AMCAWS  30  goes  to  a non-stop  mode.  While  the  model  will  be  refined  and 
corrected  with  more  firings  and  additional  research,  it  now  provides  a 
better  basis  for  selecting  a barrel  twist  than  was  available  previously. 
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CONCLUSIONS  AND  RECOMMENDATIONS 


The  Barrel /Torque  Comparisons  computer  program  can  easily  be 
changed  to  provide  comparisons  of  many  possible  barrels  with  a set  of 
nominal  ballistics  data  or  comparisons  of  one  barrel  with  a range  of 
ballistic  performance.  This  is  a useful  design  tool  so  that  someone 
charged  with  releasing  a barel  drawing  can  do  so  with  some  assurance  that 
the  twist  profile  appears  compatible  with  the  interior  ballistics  of 
the  round.  An  advanced  gun  and  ammunition  development  program,  such  as 
AMCAWS  30,  should  check  barrels  afout  to  be  released  against  current 
interior  ballistic  performance. 

The  predictive  model  is  admittedly  simplistic,  based,  as  it  is, 
on  limited  data,  limited  experience,  and  limited  intuition.  The  model 
is  not,  hopefully,  one  of  the  arbitrary  interpretations  discussed  under 
Observations.  Work,  to  whatever  degree  possible,  should  continue  on 
refining  such  a predictive  model  as  it  will  fill  a very  real  need  in 
designing  one  aspect  of  the  gun-ammunition  interface. 

The  success  of  the  N = 1.6  barrel  as  indicated  by  the  values 
coming  out  of  the  computer  program  and  the  firing  tests,  is  due  to  its 
hybrid  design.  The  initial  rifling  angle  of  3°  is  a very  important 
design  element  to  reduce  the  total  sweep  experienced  by  the  rotating 
band  while  the  1.6  exponential  gain  allows  low  band  stresses  throughout 
the  barrel.  The  N = 1.6  barrel  essentially  takes  the  zero  band  sweep 
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aspect  of  a constant  twist  barrel  and  combines  it  reasonably  success- 
fully with  the  low  peak  values  associated  with  gain  twist  barrels. 

The  goal  of  the  initial  effort  of  this  work  was  to  provide  a 
replacement  for  the  unsuccessful  RIA  twist  barrel.  The  recommendation 
of  the  constant  or  the  N = 1.6  twiat  barrels  with  the  current  AMCAWS  30 
interior  ballistic  performance  meets  that  goal.  There  is  a very  high 
degree  of  confidence  in  those  recommendations  since  they  were  actually 
fired.  Looking  ahead  in  the  AMCAWS  30  program  to  non-stop  ballistics 
and  plastic  rotating  bands,  a secondary  goal  of  evaluating  barrel/band 
combinations  without  fabrication  and  firing  developed.  The  predictive 
model  presented  is  a first  step  in  meeting  that  goal. 

Specific  conclusions  and  recommendations  follow: 

CONCLUSIONS: 

1.  Evaluate  barrels  about  to  be  fabricated  with  current  interior 
ballistics  performance. 

2.  Current  (May  1975)  ballistic  performance  indicates  N=1.6  or 
constant  twist  barrels  should  be  used. 

3.  Rotating  band  sweep  on  gain  twist  barrels  is  a critical  para- 
meter that  must  be  considered  when  suggesting  a new  gain  twist  function. 

4.  Rotating  band  sweep  due  to  gain  twist  limits  the  rotating  band 
width  (width  in  the  axial  direction)  that  can  be  effectively  used.  Wider 
bands  with  gain  twist  barrels  do  not  always  have  better  survivability. 

RECOMMENDATIONS: 

1.  Obtain  better  and  more  useable  data  on  high  rate  properties  of 
rotating  band  materials. 

2.  Refine  the  rotating  band  predictive  model. 
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APPENDIX  A 


BARREL/TORQUE 

COMPARISONS  COMPUTER 
PROGRAM  WITH 
CALCOMP  GRAPHICS  OUTPUT 


A- 1 


f’jitntAM  IV  G LFvLl  di 


f^AlN 


DATE  = 75166 


Qt/t*k/Ub 


»0«tft.ai*#*0«9*C««a46B*#C##«O«****#«#*t**0ft«**#*#**«***t»***** 

© «•  a © **#* * o*  © ooooO#  o © oo*»#**#o*o*o o o o •#*#*••#*•  a **•*•**«  a 
10  •*  © « ©##*  O ##**  O 6 © ©o*  a o **0*00  * #©  o »«*««  o © o o » o* ooooo* •*•**# •##  • 

dARREL/TOHQLE  comparisons 
hhOGRAM  Br  MIChaEl  R.  kane  (SaRRI-LW-A) 

j«ii»Bfl0*a0»<n,0*0*ofl*****o0##»*l*0**#*******#**#*4******4***44 
3 © O © O © © • © © • ©O  oo  © © © © *©  o o 0 * ©OOOOO*  BB  ©*®  © © oooo  O©  •###•#©©*©  © © • ©•  • 


#©*©©o#©©00uQ0ul0 
•••••*•**  oOOOOOt'O 

• »«••••••<,  0000030 

<m*»»«*»*yO0OOl'MU 

•••••oa«*000000S0 

>0000060 

000000/0 

O000000B0 

«»«**»».*00000090 

•o««eo*»oy000Q100 

o*o0oooono 


•orcue  cn  amcaxs  jomm  ip  projectile  along  barrel  length  <j 

BaSEC  ON  AMCAWS  JO  INTERIOR  bALLIST ICS  PROGRAM  DA  I A C 

)#OOO6«<K>**oeo***«#*#9***«tO*0*O‘>OoO***B9**9B«**0*0*009*°99*1,9O0O0(»9O{t(J 

NUMBER  OF  DATA  CaRuS  IS  LlMiTtD  hr  THE  Si  OF  THE  IBOaIa  ARRAY  (1 

J0*#OO<»*t0*9O0OO«0#'»«0000*#*0ft9O9  090®00#9*9*******fl9**tt4#*Ott##O#**4444t 
to o«oo  o#qo©oo©o©©©**«©©©#©#©o©*oo©o  **©•©•©•©*©*  ©#*<»©♦*©©©©*©*©*©©©©©©©<, 
0 0 0*0  o«««m»OQ  ooo#oo  o«**o**o  »*oo**oo  oo**o*##o****o*o##*«*ooo**«*#o*oo^ 


C JATA  MATRIX  IS  AS  

C ldDATA l v< 1 ) s T IHE  ( SECONDS  1 U 

(.  InDATAtj,2)=  POSITION  (INCHES)  (J 

L >U0ATAI.«J)=  VELOCITY  (Fi/SEC)  0 

L IBOATA i„.A)=  ACC£L£fiAriC*  iFT/SEl/SEU  C 

c IB0ATA<J.S)S  LHAMHER  PRtSsuRE  (PSD  o 

C B9L_ ( v.1)=hCTATI0N  (RADIANS)  » 

( dUL  < w .2) sRC T AT  1 ONAL  VELOCITY  (HAO/SEC)  ( 

L dBLl(  „.3)sHlIAU0NAL  ACCELERATION  (RAO/SEC/SEC)  C 

L dBL~<  J«4) =TLROUt  (IN-LBS)  v 

C BBL~  ( j.S)  = ICTAL  SHIAH  AREA  REMAINING  CN  BAND  (IN°<>2)  t 

C ddL  ( >.6|sY  VALLE  OF  LAND  i INCHES)  C 

C BBL  ( -./)*  FIRSI  CEHIvIfIVE  OF  RIFLING  EOLATION  l 

C dtO  v.B)=SECCni;  CEhIVIUVE  Of  RIFLING  EOLAT ION  L 

C ddL  ( J.VJssHEAH  STRESS  ON  BAND  (PSI)  v. 

C ddLl<JDV)=dEARING  S'-ESS  ON  BAND  FACES  (PSI)  l 

^ OOO ©O o o oo OOO 00*00*00  0*00 OOOO 0 0 OOOOO 00*0000 00  00**0 O^OOOOO* *0*0***000*0  0 0 u 

(-oo*oooooo*ooo*oooooo<<o*oo*o****oo©oooooootfoo*o*oo**#***000*********o*o**C 

(JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO#***#***********************!, 

C SIGNIFICANT  F1GLHES  IN  EXCESS  Of  THE  MACHINE  ACCURANCY  C 

L ARE  INCLUDEO  FOR  REFERENCE  C 

(;000*000000000***0000000000000*0000000*00000*000#*000*000*0*000000000000^ 
(;o«000o00000000**0000  000**00*00*0****0000*0000#***00**0*0000*000*0000000(] 
£©0*000  000**00***0000  0000*000**00  0*0*00*0  00000*0#000000#000**0*0*000o000(; 

HEAL  IbOaTa (250tS) *8dLl (250*10) .BBL2  (250  * 1 0) .BBL3I250. 10) .IPOLAR.  C 
INI  ,N2«NJ|MPR0J.  XLUMMr  (252)  .YOUMMY  (2S2)  . (. 

2BBlhER(250,I0) «dfcLAMC (250 » 10) .BBLCON (250 r 10)  i 

DIMENSION  IBLF(IOOO)  <■ 

J=0  £ 

20  hEA0(5»30»END3A0>  A «e il  »0»t  * 
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0005 

0006 
0007 
0006 

0009 

0010 
0011 
0012 
0013 

00 1 A 
0016 
00 1 A 
0017 
0016 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 


0020 

0029 

0030 

0031 

0032 

003  1 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

004  2 

0043 

0044 

0045 

0046 

0047 
0040 

0049 

0050 

0051 

0052 

0053 

0054 


30  MJRMAT(S«E16.7)1 
J=J*1 

IBDATA (J. l ) cA 
;0OATA(J,2)sB 
IBDATA (J, 3) «C 
IttOATA ( J.4) eD 
IBDATA 1J. 5) *£ 

C:0  TO  20 
40  CONTINUE 
NSET*J 
NVAL=NSET«2 
RAD20G=57. 2958279 
SL0BE«.  1577-30 
a bore =i . loooo 
R=. 59175 
STAR=1.0£70 
bbo* • 5856608 
IPOLAR=3.8043£-U4 
pPHOj=1.10513£-o3 
DO  45  J=1.N5ET 

IbOATA<j,3)=IBCaTa(j»3)M2.0 
IBDATA <J,4)*|8CAT A (J.4) *12,0 
45  CONTINUE 
C 

c 

dAR9ELs  Ns!. 6f N=1,8#n«2.0  CALCULATIONS 

) ■ An  * * 1 t 0 

Enl)s01 ,0 

p l =o.4l  0-42050  9t -03 
P2=2.O06332t-O3 
P3=6.58627282E-04 
M = 1.6 
62*1.8 
N3=2.0 

*PI  = 14. 1582257/ 

XP2*25. 97271115 
XP3*38, 78559/2 
AMT1=9. 384274135 
AMT2=9. 37723553 
AMT3«9, 446034469 
00  70  J=1 »NSLT 

IF (I80aTA(J,2) .OE. START)  00  TO  50 
00  46  Ms] . 1 o 
BBL 1 (J.B)=0,0 
BRL2(J>M!=0j j 
riBL3 ( J»M) =0 , 0 
46  CONTINUE 

BBL  1 <J,S)=SUR 
BBl2 ( J»S) =STA < 

BBL3(J,S)=STAR 
GO  TO  70 

50  IF ( IBDATA (j, 2) .01, END)  GO  TO  60 

CALL  GAINP( J,Pl,NilXpltT,Tl,T2, TORQUE. ALEFTltY,0VDX,02Y0A2, 


00000540 
00000550 
OOOOOS60 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000660 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000620 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900  f 

00000910 
00000920 
00000930  ; 

00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
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1 

O05S 

d dL  1 < 

J * 1 ) s T 

00001090 

E 

0056 

dRLl  ( 

J,2> 

= i 1 

00001100 

l 

0057 

UflLl  ( 

Jt  }> 

= T2 

00001110 

00S8 

RBL 1 ( 

Jf4) 

=TORCU£ 

00001120 

0059 

t'HL  1 ( 

J.5) 

= AlEF  1 1 

00001130 

p 

0060 

68L1  ( 

J.6)»Y 

00001140 

| 

0061 

6BL1  ( 

J.7) 

=A 1 AN (CY0x)*fiAD20& 

00001150 

£ 

0062 

BriLl  < 

J«d) 

=02YLX2 

00001160 

0063 

8BL1  ( 

J,5)*Sh£AR 

00001170 

f 

0064 

oBLl (J*10> 

= Ot.Ab 

00001180 

£ 

0065 

CALL 

GAlNPI  JtP2f''2fXP2,T,Tl,T2f  T0RCUE,ALEf  T2,YfOYDXfD2YDX2f 

80001190 

| 

2SmEaR 

♦ BEAR 

♦ 1 BOAT A <J«2) tIBDATA(Jf3) t IBOATa ! J»4) * 1 BOAT A (JtS) ♦ 

00001200 

Dr 

-r 

ISTaRT 

♦ R ♦ IPCLAR ,rtPK0 J ♦ R80 1 AB0KE ) 

00001210 

£ • 

0066 

dHL2< 

Jf  1 ) *T 

00001220 

i- 

0067 

8'<L2( 

J,2)*T1 

00001230 

ft" 

■r* 

0068 

dBL2( 

J ♦ 3 ) *T  2 

00001240 

i 

*’ 

0069 

88L21 

Jt4) 

=TCRCU£ 

00001250 

£ 

0070 

doL2  ( 

j,5) 

=ALEFT2 

O0C91260 

00  71 

ddL2( 

J.6) 

= Y 

00001270 

| 

0072 

dBL2< 

J,  7) *ATA6 (OYOX ) ORA02D0 

00001280 

00/3 

BbL2< 

Jf 8) *02Ylx2 

00001290 

L 

0074 

riBL2( 

j « 9 ) =Sm£AR 

00001300 

0075 

btfL2  ( J*  1 0 ) sBfcAri 

00001310 

t 

■ x 

0076 

CALL 

GAlNP(JfP3.N3fXP3.TfTlf!2t  rORUUEtAL£FT3fY,DYOXtL/2YOx2t 

00001320 

f 

2SHE aR 

♦ BEAR 

,IB0ATA(J,2)  1 180ATA(J,3)  fIbDATA(J,4)  fIBDATAUfS)  , 

00001330 

0 

ISTaRT 

.R.IPOLAR.HPROJfWdOfABORE) 

00001340 

a! 

>/ 

007/ 

8BL3( 

Jcl) 

= T 

00001350 

( 

0078 

ddL3  ( 

J,2) 

= Ti 

00001360 

f" 

0079 

ddl.3  ( 

J.3) 

*T2 

00001370 

| 

0080 

oHl3  ( 

Ji  4) 

=TURCUE 

00001380 

U081 

8HL3  ( 

JtS) 

=ALEFT3 

00001390 

j? 

0082 

ridLJ( 

Jf  6) 

= Y 

00001400 

0083 

BBL  J < 

Jf  7 ) 

3 A 1 AN  (CYOx)  *KAD2UG 

0O001410 

? 

r 

0064 

bBL3( 

Jt8) 

=U2Y0X2 

00001420 

SJ 

0085 

BdLJ( 

J,9) 

=SnEAR 

00001430 

jf 

0086 

B’iL  3 ( Jf 1 0 ) 

=dt  At» 

00001440 

& 

0087 

60  TO 

70 

00001450 

1 

0088 

60  tttiLl ( 

Jtb) 

= SL0Pt«  llHCATAI  Jf2)-tN0)  »-APTl 

00001460 

& 

0089 

ddL2< 

Jf  6) 

* SLOPE*  <ll'/ATA(Jt2)-tNC)*AKT2 

00001470 

s 

0090 

ridl  3 ( 

J ♦ 6 ) 

= SLOPt*U80ATA(Jf2)-tNC)*AMT3 

00001480 

& 

0091 

8dL  1 ( 

J,l) 

=bbl.l  < J f 6 ) /R 

00001490 

4 

0092 

BdL2  ( 

Jf  1 > 

=BoL2 ( Ji6) /R 

00001500 

| 

0093 

dHL  J ( 

Jfl) 

=dbL3 (jf 6) /R 

00001510 

t> 

0094 

dbL  1 ( 

J » 2 ) 

=SLOPE«IdOoTA(Jf3)/R 

00001520 

| 

009S 

ddL2  ( 

Jf2) 

*BBU ( Jt 2) 

00001530 

S 

0096 

ddL  3 ( 

Jf  2) 

=8dLl ( Jf 2) 

00001540 

{ 

0097 

OdLl  ( 

Jf3) 

*SL0P£*lB0ATA(Jf4)/R 

00001550 

l 

0098 

dBL2  ( 

Jf  3) 

=BdLl  (4,3) 

00001560 

V 

0099 

dbLJ  ( 

Jf  J) 

=BdLl  (4,3) 

00001570 

k 

>’t 

0100 

BbU  ( 

Jf  4) 

»IPOLAR»b9Ll(Jf3) 

00001580 

i 

0101 

bbL2( 

J 1 4 ) 

=dBLl ( J,4) 

00001590 

<& 

f 

i 
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0102 

ddL3<  J.'-,)«6bH  (g»4) 

00001600 

01C3 

bbL 1 > J.3)=AL£FT1 

00001610 

010*? 

bdL2(  J»5)*AL£FT2 

00001620 

0105 

dbL3I  j,5)*AL£FT3 

00001630 

0106 

d8Ll<  J.  7) * AT AM SLOPE ) •HAD2UG 

00001640 

0107 

ririL2(  J,  7)  *6BH  ( J • 7) 

C0001650 

0108 

e8L3(  J.7) “6bLl ( j » 7 ) 

00001660 

0109 

«bLl(  J*8)*0.0 

00001670 

0110 

BbL2<  J,d)»Q.O 

000016H0 

0111 

b8L3 ( J*S>*0,0 

00001690 

0112 

bdLlf  J,91*BdLlf  J»4)®2,496 

00001700 

0113 

BHL2 ( J,95*ddL2<  J.4)«2.496 

00001710 

Oi  14 

ot)L3<  J.9)e8dL2(  J»4)«2.496 

00001720 

0115 

dMLl  (J.10)  efldLl ! J»4)»S.388 

00001730 

0116 

HHL?(J.105*BdL2<  J, 4) *9.385 

00001740 

0117 

k8L3( J.10)l8uL3<  J,4>*9.388 

OOOul 7 SO 

0118 

70  CONTINUE 

00001760 

C 

00001770 

C 

00001780 

C«o*®«  dAKKEL  KI A CALCULATIONS 

00001790 

0119 

start=a.o 

00001800 

0120 

£60=73,28 

00001810 

0121 

AMTcS.9565 

00001820 

0122 

DO  300  Jal.NSET 

00001330 

0123 

IF ( I6DATA (Ji2) .GT.START)  GO  TO  320 

00001840 

0124 

JO  310  M= 1 , 1 0 

00001850 

0125 

310  88l AMC (J«M)=0.0 

00001860 

0126 

BBlAPC  < J.5)  = .o6d77fc 

00001870 

0127 

IF  (IBDATA(J.a)  .LE.l.O)  dBLAMC<J,S)=STAR 

00001880 

0128 

GO  10  300 

00001890 

0129 

320  IF  ( IbOATA ( J.c) . Gt.ENJ)  GO  TO  330 

00001900 

0130 

CALL  AAHC30(IdLATA(J.2) , ISO AT A < J , 3) , IBDATa ( J ,4 ) , START, k.RrtO, 

00001910 

1 ABOKE ,IdOATA(J<5) , IPCLAR»MPK0J.Y,T»T1»T2,DYDX.02YDx2,T0R0UE» 

00001920 

2ALEFT.SMEAP,dEAR) 

00001930 

0131 

BBLAMC ( J . 1 > = r 

00001940 

01  J2 

dBLAMCl  J.2 ) =T 1 

00001950 

0133 

bBL«PC(  J.3) =T2 

00001960 

0134 

ddLAPC ( J .4 ) * T CkUUE 

00001970 

0135 

dBLAPC ( J « 5 1 =ALLF  T 

00001980 

0136 

dbLAHC ( vi.6)=r 

00001990 

0137 

HbLAMCf  J.7)=ATAM0r0X)*RA020G 

00002000 

0138 

driLAPC ( J ,8 ) =02 YJX2 

U0002010 

v 1 j9 

BdLAPCl  J,9)=SMtAR 

00002020 

0 140 

ddLAMC 1 J. 1 0 ) =8tAR 

00002030 

0141 

GO  TO  300 

00002040 

0142 

330  CALL  CONST (SLOPE, ENO.IBOATA (J, 2) ,I6DATA(J»3> ,I8DATA(J,4) .APT. 

00002050 

lM,PriO,AdOP£,ldCAlA(J,5) .Y.T.T1 ,T2, TORQUE » ALEFT9 .0YOX.O2YOX2 . 

00002060 

2SHL AR .BEAR ) 

00002070 

01<*3 

dBL ARC ( J, 1 ) =T 

00002080 

0144 

6BL AHC ( J.2) =T1 

00002090 

0145 

BbLAMCl  J.3 ) =T2 

00002100 

01  -.6 

dbLAMC ( J.4 ) =TCRCuE 

00002110 

0147 

BBL AMC ( J.S) =ALEFT 

U0002120 

A-5 
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0148 

BBLAMCf  J,6)=Y 

00002130 

0149 

BbLAMCf  J, 7) =ATAN  fDYOX) *RAD2uG 

00002140 

01S0 

hBLAMCf  J,8)=D2YDX2 

00002150 

0151 

dBLAHCf  J»9) =Sh£AR 

00002160 

01S2 

BBlAMC ( J, 10) s9£AR 

00002170 

J00  CONTINUE 
C 
C 

C«**«*  oARREL  HERCULtS  CALCULATIONS 
STA«T=1.0 
PJ*. 01008 
N3=l.S 
AK3*0.0 

00  100  J=»1.NSET 

IFfIbOATA(J,2) .GT.1.0)  GO  TO  90 
00  80  Mai, 10 
dO  dBLHfch(J,M)=0,0 
BBlHER f J ,5) =STAR 
GO  TO  100 
90  CONTINUE 

CAIL  GaINP < J,P3 ,N3*XP3»  T , Tl ,T2, TORQUE *ALEFT , Y»DY0X,02y0x2* 

1 Sht AR,BEaR, I BOAT A ( J ,2) , IBOATa ( J ,3 ) *IBDaTA(J»4) ,IBDaTA(J»5) , 
1STaRT,R,IPCLAH,mPROJ,RHO.ABOR£) 

C **•*  SHEAR  AfitA  CALCULATION,  AREA  IS  AREA  SWEPT,  ALEFT  IS  AREA 

C •*«  REMAINING  ON  THE  ROTATING  BAND  PER  SEGMENT 

C «»•*  DRIVE  IS  QRIVING  EOGE  AREA 

C *»**  SUMFOR  IS  SUMMATION  OF  FORCES  AT  RADIUS  TO  PRODUCE  TOROUE 

ARE A=, 064800Q*G YUA 
ALEFT=(0.033M627-AREA)«20#0 
SUMFORrTCROUE/R 
SH£aR=SUMFOR/ALEFT 

ORI  Vt=  (.  3600/CCS  (ATAMOYOXU)  *20. 0*0. 019 

BEAR=SUMFOR/ORI vt 

BBLHERf  J.1)=T 

dBLriER ( J ,2 ) *T 1 

BBLHER ( J, 3) =T2 

dBLHER ( J , A ) aTCRGUE 

BBLHERf  J,S)*ALtFT 

dbLHERf  J ,6 ) * Y 

dbLMEHf  j«7)=ATAN(DYCX) *RA020G 
dbLHERf  J ,8) =02 YUA2 
BbLnEwf  J,9)=ShEaR 
BBLHER(J,10)=8E'Ah 
1O0  CONTINUE 
C 
C 

C *****  BARREL  CONS  I AN T CALCULATIONS 
ENU=1 .0 
AMT=O,0 

00  201  J=1 ,NSET 

lF(IdUATA(J,2),ut.l.O)  GO  TO  202 
00  203  M= 1 , 1 0 
203  obLCONfJ.MJeO.O 


00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

9U00225Q 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

OO002440 

00002450 

O0002460 

00002470 

00002480 

O0002490 

00002500 

00002510 

00002520 

00002530 

00002540 

00002550 

00002560 

00002570 

00002580 

00002590 

00002600 

00002610 

00002620 

00002630 

00002640 

OOO02650 
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0189 

0190 

0191 


0192 

0193 

0194 

0155 

0156 
0197 
0158 

0199 

0200 
0201 
0202 


0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

02  i 3 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 


dbLCON (j, 5) =STAR 
GO  TO  201 

202  CALL  CONST  (SLOPE  »£NO,  IbDATA (3,2)  * IBDATA  (9*3)  ,IBDATA(J,4)  .APT  * 
1R.RH0, ABORE  ,IdDATA(J,5) . Y. T » T1 ,T2 , TORQUE .ALEFT ,OYDX ,D2Y0A2. 
2ShEAR,9£AR) 
ddLCON ( J.1)=T 
B8LC0N ( J»2)=T1 
tibLCON<  j.3)=T2 
SdLCON ( J,4)*TCRUUE 
bdLCON ( J»S) *AL£FT 
ddLCON { J.6)*Y 

dbLCON ( J,7 ) *ATAN (DyGX) *RaD2DG 
doLCONf  J,8)=02Y0X2 
tiriLCONt  J»9) *SPEAR 
dbLCON (J, 10 ) =8£AR 
201  CONTINUE 

C***«*  tNO  OF  BARREL  CALCULATIONS 

C 

C 



c 

c 

00  75  J=1,NSET 
IdUATA(J»3)=lBCATA(J»3)/12«0 
I8UATA(J,4)=180ATA(J.4)/12,0 
75  CONTINUE 

CALL  PL OTSddUF  ,1000,14) 

call  factor (l.o) 
call  NEnPEMl) 

CALL  PLOT (0. 0,-36. 0.-3) 

CALL  PLOT (0.0,2. 5*-3) 

call  factcr<o.9) 

c»***«***«  SET  UP  FIRST  VALUES  AND  DELTA  VALUES  FOR  PLOTS 
XP= 10.0 
XT= 1 0 , 0 
YT=6.0 
rvl«=NSET‘l 
M9=NSET*2 

CALL  PLOT (10. 0,0. 0.-3) 

CALL  SCALE(l60ATAU,2),YT,N5ET.l! 

CALL  SCALE (IdJATA (1 , j) .YT.NStT.l ) 

CALL  SCAL£(IbUATA(1.4).YT,NS£T.l) 

CALL  SCALEUoDATAd.bl.YT.NSET.l) 

call  AxISlO.O.O, 0 ,40rPROJECTIlE  POSITION  DOKN  BARREL  (INCHES), 
p ‘40,  YT  ,90.0,  IbDATA  (N1 8,2)  , I BOAT  A (N19.2)  ) 

CALL  AXIS(-0.5,0.0.25HPROJtCTILE  VELOCITY  (FPS) , 

I*  *25, YT, 90,0, IBDATA  <N18 ,3) , IBDATA (N 19 ,3 ) ) 

CALL  AXIS<-l.C,0.0.3eHPROJECTILE  ACCELERATION  (FEET/SEC/btC)  . 
i«  ‘3a tY 1,90.0, IdUATA(N18,4) .IbDATA (N19, 4) ) 

CALL  AXIS (-1 .5,0.0,22HChaMBER  PRESSURE  (PSi>, 

■s>  *22,  YT.90 . 0,  IBDATA  !N18,5)  .IBDATA  (N19oS)  ) 

XUUMMY(1)=0.0 

XOUMMY(2)=0.015 


00002660 

00002670 

00002680 

00002690 

00002700 

00002710 

00002720 

00002730 

00002740 

00002750 

00002760 

00002770 

00002780 

00002790 

00002800 

00002810 

00002820 

00002830 

00002840 

•00002850 

00002860 

00002870 

00002880 

00002890 

00002900 

00002910 

00002920 

00002930 

00002940 

00002950 

00002960 

00002970 

*00002980 

00002990 

00003000 

00003010 

00003020 

00003030 

00003040 

00003050 

'00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00003140 

00UO3150 

00003160 

00003170 

00003180 
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0229 

i ALL  SCdLfcUULMyr»XI»2*l) 

00003190 

0230 

ff  v*xoumpy  «j) 

00003200 

0231 

TOV=XOUM*Y(9) 

00003210 

0232 

l8uardffjl8.i>  = rFv 

00003220 

0233 

IBDA'A(.n19,1)=T0V 

00003230 

023d 

call  AAlS<0.0,0.0«J3hriME  HWm  PRIMER  STRIKE  (StCONUS), 

00003290 

f -33»XT*0.0,TFV»fUV) 

00003250 

0235 

CALL  :NE  < 1HDA  TA  ( 1 . 1 ) ,IB0ATA(1.2)  ,NSET. 1.7,5) 

00003260 

0236 

Call  LINE ( IBDaTa ( 1«1),I3DATA(1>3) ,NS£T»i»?»0) 

00003270 

0237 

CALL  lI.NE<IBOATA(1,1I  ,IdOAT/.(l,9)  ,NSET. 1 . 7, 1 1 > 

00003260 

0238 

CALL  LINE  (18DATA  11,1)  , IBDATa 1 1.5)  ,NSET, 1 ,7. 12) 

0000329° 

0239 

CALL  LEGND1 (6.10,9.00,1) 

00003300 

0290 

CALL  PLOTI20. 0,0. 0,-3) 

00003310 

0291 

XOUMMY(1)*-10.C 

00003320 

0292 

XDUMMY{2)=90.0 

OO0033JO 

0293 

call  scalE(xdlmwy,xp,2,1) 

00003390 

0299 

PI V=XOUMMY(3) 

00003350 

0295 

PI>V=X0UMPY(9) 

00003360 

0296 

lt'l)ATA(N18»2)=PFV 

00003)70 

029/ 

IdUArA(U19,2)=.‘:0V 

00003380 

0298 

CALL  AXIS  (0->0«U«0»90RPROJ£CTIL£  POSITION  UOwN  BARREL  (INCHES), 

00003390 

19  -90,XP,0.0,PI'V,P0V) 

00003900 

0299 

CALL  AxIS<  0.0«0«0»25hPROJ£CTILE  VtLOCI fY  (FPS), 

00003910 

*>  ‘25,Yl,90.0,IbDATA(M8,3)  , IeOATA  (M9,3) ) 

00003920 

0250 

CALL  AXIS(-0.5#0.0,38HPROJECTILE  ACCELERATION  (f EET/SEC/SEC) , 

00003930 

♦ 38 • Y f , 90  • 0 , 1 BOAT  A (Nl6  >9 ) » IdDATA  (M9.9) ) 

00003990 

025 1 

CALL  AxlS(-l«OaO, 0 ,2cHCHAMbtk  PRESSURE  (PSI), 

00003950 

*22,  YT,  90.0,  IB0ATA(N18,5>  . ldUATA  (N19,5) ) 

00003960 

0252 

Call  LInE(I6UATA<1,2)  .IdOATAd.J)  ,NSEI  ,1.7.0) 

00003970 

0253 

CALL  LINE (IBDATA! 1,2) , 180ATA (1,9) ,NSE I , 1 ,7. 1 1 ! 

00003980 

0259 

CALL  L1NE<IBUATA(1«2) . IHOaTA 1 1,5) ,NSE 1,1,7 ,12) 

'■0OU3990 

0255 

cai  .rGNOl  (7,80,9.60,2) 

00003500 

0256 

call  PLOT(20. 0,0. 0,-3) 

00c 03510 

0257 

CALL  SCALE (oBLCCN( 1 ,9) , YT.NSET , 1 ) 

000u3520 

0258 

vFv=bBLC0N(M8,  <,) 

000v/3530 

0259 

i«l)V=BB(.CCN  (N19 ,9) 

00003590 

0260 

88L1 (Nl8,9)*UFV 

00003550 

0261 

BBl  1 lN19.9)si,0V 

00003560 

0262 

6dL2(N18,9)=UFV 

00003570 

0263 

)nL2(N]9,9)=L0V 

00003580 

0269 

60LJ(N18,9) =OFV 

00003590 

0265 

!>BLJ(N19,9)=00V 

OOUO360O 

0266 

HriL6tR(N18,9)3CFV 

0O003610 

0267 

6PLHtR(N19,9)sLUV 

00003620 

0268 

«HLAMC(N18,9)=<.FV 

00003630 

0269 

6BLAyc<Ni9,*.)=(;uv 

00003690 

0270 

BBLCON (N18.9) *CF  V 

O0003650 

02/1 

b8LC0N(Nl9,9) =COV 

00003660 

02/2 

aOuMMY ( 1 ) &0. 0-1 000. 

00003670 

0273 

XUUMNY(2) =10000. 

00003680 

0279 

CA(  L SCALMxDUPMY,YT,2,l) 

00003690 

0275 

SMkF V=X0UMHY (3) 

00003700 

0276 

S9Rl>V=Xl)LMF'Y(9) 

00003710 

A-8 


r 


t Oh  THAN  IV  o Lfcvtu 


0 Alt'  = 751  6ft 


xllmmy(1)=o,u-auuo. 

*ou  mwy  (2)  =aoooo. 

CALL  SCALE  ( XDUftMY *YT«2*I) 
otANF  VsXU'JMMY  (2) 
oF.AWUV  = X0u^My  (A) 

”oL  1 (NId,9)  =SrftF  v 
bfeL2(Nia,9) = SM8F  V 
a-,L.l  =SHhFV 

dBL  *'C  (N 18 « 9)  =SH„F V 
t)bLdt.«  (Nl8,9)  = Snhf  V 
„OLC0N(NlH,9)  =S„NFV 
tt'JLl  (MV.9)=SHhUV 
dbL2(N19«9) =SnhuV 
dftL  J(Nl9*9)=SHhuV 
«0LAMC(N19.9) =bH80v 
doLntP  <N1 9,9) =SH«0V 
rtbLC0N(N19,9J sShKQV 
8dL CON ( N 1 « , 1 v ) =ttt  AKf  V 
odLdEK(Nld.IO)=bEAHftv 
TBLAMC(N18,lu) =bt AKF  V 
dt’L  J (Nl 8 , 1 0 ) =dt ANFV 
bbL2(Nl8, 10) =dEA„Fv 
dbLl (Nl  8 , 1 0 ) =flt  AftF  y 
a>‘Ll  (N19,l0)=btAHOv 
481 2 <N19«  1 0 ) =bt  AfiUV 
8CL.MN19,10)=rit  AkUV 
»«l.  AMC(Nl9,lu)=otAKOv 
nHLHtK(M9,10)S8£AhJV 
rfHLCON (N l 9, 10)  =ot A*Dv 
n=i.o 

L«oooo  OLfFUl  Flit,  N=l,6  BAHdtL 

'•►'l  Tt  (ft,  l ) 

1 FOKMAT ( * 1 ' , i . //////,,///, ////////  . o • , 2ux, 

T rw  « . ,oAH,<tL  1’  J OEoHtE  INITIAL  ANGLE , 8.96?  EXIT,  Y = .( 

l-»0b»A»#l  .6,  N = l.ft  faAHHtL*) 

*)<1U  (ft, AGO) 

*00  »OKMAT(.i.t.BAm<tL  l.  3 OEGKEE  INITIAL  ANGLE,  8.9b?  EXIl,  ya.r 
190ft°xOtt  1 .ft,  N = 1 , 6 BAHrttL')  ,l 

v-dlTf  (fc  ,2 1 V ) 

L'O  2/0  J=1 ,NSEI 

*«  ! Tt  it  . 200) J, IriLAl A ( J,2)  ,bdL  1 ( J,b)  ,bt)L  1 ( J,A)  ,6bLl  ( J,S)  , 

UtJftL  1 ( J, VI  ,buL  1 (J, 10.  < Ifal)ATA  ( J,  1 > fbdLl  ( J,  ?)  , J 
2/0  Hint  I Nut 
**I  ft (ft, 7) 

* bBL1  U.*I  ,0,SfcT,Str,SET,bEJ) 

WK1  Ifc, 

LA'-[-  f p’LCr(niSET,I,lHUAlA(l*n  , BbLl  ( i *9)  * o * SET  , St  T * SE  T ,SET  > 
CALL  AX!S(0, 0,0,0, JSHTOKQLE  SHINNING  PHOJtCJILE  (IN-LbS), 

* »3=,rr,9o,o,CFv,oovj 

CALL  AXIS(0, 0,0,0 , AobHHOjELT iLt  POSITION  0C#N  dAKKtL  (iNChtS), 

* -*0,XH,0.0,PFV,Pt)V'I 

CALL  LINE (IdOATA (1 ,2) ,ddLl (1  ,A) ,NSt I ,1 ,15, 1 1 > 

CALL  Symbol (*.2«7<b« >21, I2hN=I,b  dAKP£L»U.0**12) 
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CALL  L 1 Nr.  ( 1BDA  I A ( 1 ,2)  ,8BL1 (1.9)  ,NSET. 1,26,1) 

CALL  UN)  (IbDAlAll,2),BBLl(i.lo),NSET,l,cO,2i 

Mtss  “ »■«•• 

s,“bS  “ 

CALL  LEGENO  (6.  ‘)U0 , 1 , 222) 

CALL  PLOT'lb.O.O.U.-,)) 

call  axi  s (o.o  »o.u ,3Sk torque  spinning  project  ill  un-lbs). 
‘3B,Yr.90.O,CFV,ODV) 

CALI.  AXiS(A.0.0.u,JJhTlMt  FROM  PRIMER  STRIKE  (SECONDS)  . 
-J3,XT,Q«C»TFV,T0V) 

call  LINE ( I6DATA ( 1 * 1 ) ,BBL1  (1.4), NSE 1,1,15,11) 

CALL  SYMBOL <4.2, 7.5, .21 ,12hN=)  .6  BARREL » 0. 0 * * 1 2 ) 

CALL  PLOT ( 15.0,0.0,-J) 

C**9*9  OUTPUT  FOR  N=l  ,8  BARREL  

-*KlfE(6,2) 

2 f (JRMAT  ( • 1 • » 1 • ////////////////,//,  10',  20X, 

“‘"“L  ^ ” 

*««•  «■>. ... 

*>RI  TE  (6*21 0 ) 

DO  260  Jsl.NSET 

»R1 rE(6,?00) J.1BCATA(J,2) ,BBL2<J>6) ,BBl2(J,4) ,8BL2<J,b). 

^ cShriNuE’  •BttL2<J’l°,9iaoATA(^’l>  •e^L2(J.7>;j  * ^ 

wri rt (6.7) 

*RlTE^6^Bl<NSeT,1,Ib0ATA<1’2)  ’ 8BLtJ(1*4‘>  *0  *SET  *SET  *SF  ( .SET) 

CALL  F PLOT  (NSET  « 1 * 1BUATA  ( 1 * 1 ) * B8L2 ( 1 .4 ) , 0 » SE T ,StT , StT . SFT I 
CALL  AXIS(0.0.0,Ot JShTORQUE  SPINNING  PROJECTILE  UN-LBS). 

* *3S*rr.90.0,<;FV.ODV) 

.call  POSITION  down  barrel  (INCHES) 

CALL  LINE  (IBUA  TA(  1,2)  ,eBL2U, A), NSETrl.lS.il) 

.C*H-  ’7,&,,21.12hNs1.0  BARREL. O.O. *12) 

CALL  LINE (IBOAIAU ,2) ,bBL2U,9) ,NSET, 1,25.1) 

CALL  LINE«IBUA(A(1,2) ,BBL2 ( 1 , 1 0 ) ,NSE T , 1 , 20 »2) 

sh>l$s  0N  muum  "’s‘" 

call  LEGEN0I6, 000.1,222) 

CALL  PLOT (IS. 0. 0,0. -J) 

CALL  AXIS(0. 0,0.0* J5HTOHQUE  SPINNING  PROjtCTILt  (1N-Lb5>, 
♦35,YT.90.0,(.FV,OOV) 

CALL  AXIS (0.0, 0.0,33b  TIME  FROM  PRIMER  STRIKE  (SECONDS). 

1 *33 1 A I ♦ 0 « 0 ♦ TF V p TO V ) 

,-A4LLt-LIf'e<  I8CAfA<l.l)  iBBL2 (1,4)  .NSET.l,  15,11) 

CALL  PLD?us?^o'^:3f1,,2HNa1-8  ^L.0.«..12l 


0 j0a250 
1's.")0h260 
00004270 
00U0A2B0 
v,.  ..04290 
( joOAJOO 
(.OOOAJlO 
.0004320 
/000a 330 
01)004340 

000u4  )So 
00004360 
O00043  7o 
00004380 
00(100  390 
00004400 
OOOOAhIo 
OOOOaa2o 

• l>0<.'10000044  lo 
00004440 
O0004460 

•00210o000aa60 

09004470 

00004480 

00000490 

ODOOA50O 

OOUOaSIO 

00004520 

00004530 

00004540 

00GO4550 

00004560 

00004570 

00004580 

. 00004590 

0JOO4600 
0000461 0 
0UO04620 
0l/0U4o30 
00u04640 
000046  aO 
00004Ob0 
000046/0 
0001.4680 
00004690 
00004/00 
00004710 
00004720 
00004730 
oOOO 4 740 
00004750 
00004  760 
OUO047 7u 
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K 


It 


I 


UJ61 
0 Jo? 


03o3 
0 3(34 

03cb 
0366 
036  7 

0366 

0369 

03/0 

0371 

03 72 
03/3 

0374 

0375 

0376 

0377 

03/6 

0 i/9 
0360 
0 1*5  1 
0 362 
0 163 


L 3 '4 

0 3s b 

0 JAR 
0 j.'  / 

0 !«« 
'.I  Jo9 


v 390 
>'J91 

V i92 
o 39  3 
u J94 

C 39b 
0 396 
0 397 


OUTPUT  f Ok  N=2.0  BARREL  •»••••«••*«• 

«H1  it  ( (n  3 1 

j format i *i* i ' * ////////////////////  <0‘,  20x. 

.<•  'QARWtL.  3.  3 uEGRtE  IMT1A1.  ANGLE.  8.96?  txlr.  r= 

1696“X««2.0.  n=2.0  oARREL • ) 

*Rl  TE (6.420) 

420  FORMaTCDDoARkEL  3.  3 OZGRiE  INITIAL  ANGLE.  8.967  EXIT.  Y* 
le96*»X**2.0,  N=2.0  dAKREl. ' ) 

WRITE (6.210) 

DO  2b0  3=1, NSET 

wRITE  i6.200)3»18UAlA(J,2) ,BdL3( J.6) ,dBL3(J»4> ,8BL3(J»5) , 
UH6L3IJ.9)  ,ddL3U»10)  .lBDATA(Jel)  ,6BL3(J,7)  .J 
2b0  LOrTINuE 
WRITE (6. /) 

call  FPLCT  (libEl  .1.1BOATA  (1 .2)  . BBL3  ( 1 .4)  , 0 . SET  . SET  . SET  . SET  ) 
wRI!t (6.9) 

CALL  f PLOT  (/(SET.  l.loCATAI  1.1)  . BBL3  ( 1 .4 ) ,0  , SET  . SET  .SE 1 . SET  ) 
CALL  AXlSIO.O.O.Oi 35HTOROUE  SPINNING  PROJECTILE  I1N-I.BS)  . 

# «3b.Y t ,90.0.CFV,Ul)V> 

call  AXISIO.o.U. 0 »40hPROJ£CT1LE  POSITION  DOWN  BARkEL  (INChES 
**  -40.XH.0.O.PFV.PCV) 

CALL  LINT  ( IBOa TA ( i .2) »Bbl3 (1.4) .nSET . 1 . IS. 1 1 ) 
call  SYMfcOL(4,b.7.b.,21 .12kN=2,0  BARREL .0,0. 12) 
v-AlL  AXlS(-1.0.0.0.3bHSH£AR  STRESS  ON  ROTATING  BANG  (PSD. 
1‘33.YT,90.0.SHRFV,ShRDV) 

call  AXlS(-.b.0.0.J/hBEARlN6  STRESS  ON  ROTATING  BAND  (PS1). 

1 ♦ J 7 » VT  .90.0  .ElARFV.bE  Afi'JV) 

call  LIN."  (I  AT  A (1,2)  .GBLJIl »lu)  ,NSE  T . 1 , 20 , 2 ) 

CAlL  LINE  ( IBoATAd  ,2)  ,bBL3 ( 1.9)  .NSET  . 1 .2b.  1 ) 

CALL  LfGENC(6.u00.1,22?> 
call  Plot (lb. o.o. 0.-3) 

CALL  AXD  <0.0. 0.0,  JBrtTuRQut  SPINNING  FROJtCT  ILE  (IN-LBS), 

® « JS.YT.VO.O.GFV.COV) 

call  AXISIO.o.L.O.JjcTIME  FRum  PRIMER  SIrDE  (SECONDS)  . 
w -33.XT.0.0.TFV,  TOV) 

CALL  L INE  < IBCAIAt 1 ,D .Bol3( 1 .4) .NSEl.l .lb.ll ) 

LALL  SYMBO-,  ;4,c, /.S..21 , 12hN=2.0  BARREL, 0.0* *12) 
call  plot (la.o.o. o.-3) 

OCTPUT  t Oh  RlA  E-kkcl 

w R I TE (6.4) 

4 FORMAT' 'I'D  • ////// j ///////!//// / 'O',  20X , 

* 'PHESr.Nl  HlA  AMC  30  BARREL,  1 IN  FREE  RUN.  U.7BIN 
|AM  L X i T AT  t).S6/  uEORtES.  «IA  BARREL  ' ) 

wR I TE ( 6 ,430 ) 

430  FORMAT! ‘I'.'F'RtSL.Nt  RlA  AMC  30  BAR«tL » 1 IN  FREE  RUN.  U./blN 
IAN)  EXIT  AT  d.Nb/  DEGREES,  RlA  BARREL') 
wRi TL (6,210) 

DU  40 0 3=1  . NSET 

WRITE  (6.200)r,  IdCAlAtJ,  2)  .BBLAPCU.6)  .BBLAPCU.4)  .bBLAMCU.b 
1KBLAMC  ( J.‘>)  .BBLAMCU.10)  .IBDATA(vi,D  »BBLAMC(J.7)  .J 
460  CONTINUE 
WRITE (6.7) 

LALL  FPLOT (NSET. 1,1 BOAT A (1.2) ,oBLAMC( 1 ,4 ) , 0 , SE T , SE T . SE I . SE T ) 


A-ll 


t 


00004  780 
0O004/90 
00004o0u 
0006600004810 
00004d20 
00004830 
0006600004B40 
O0004BSO 
00004860 
00004870 
00004880 
00004890 
00004900 
OOo 0491 0 
O0004920 
O0004930 
00004940 
000049SO 
00004960 
. 00004970 

00004980 
00004990 
0000S000 
OUOOSOIO 
00O0S020 
G0G0S030 
‘-00Ob040 
•J000S050 
OOOOSO6O 
U0O0S070 
OOOOSOBO 
0000S090 
GOOOS 1 00 
O0U05110 
1OL0512O 
000OS130 
00U0S140 

0 ioosiso 

0O00S160 
00005170 
O000S180 
CCNSTOO('OS190 
0ou0S200 
u 0 0 0 b 2 1 9 
CONST  0000b22o 
0000S230 
vyu0b240 
0 0 0 0 3 150 
, 0000b.'60 

00003c  79 
00o0b?8o 
00003290 
0000b300 
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0J9b 

0399 

U400 

u-,0 1 

0402 

0403 

0404 
U40S 

0406 

0407 

1/408 

0409 

0410 

Utl  1 

041,? 

0413 

0414 

0415 

0416 


0417 

0418 

04  1 4 

0420 

0421 

0422 

0423 

0424 
04c5 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 


0434 

0435 


*«i  rt  t6#ei 

call  FPLCTfNSET.l ,10cATA(1,1 ) .BBLAMC11.4)  .0  . SE I .StT  .SE 1 ,5t  I ) 
CALL  AX!S(d. 0*0.0. 3SHT0RQUE  SPINNING  PRCJtCTILE  (1N-L8S). 

'*  ‘35 , YT  ,90,0 .UFV.UOV) 

lAll  AXIS (0.0. 0. 0 .40RPROJECT1LE  POSITION  GOWN  bASRtL  (INCHES)* 
•v  -40,XP,Q.0,PF V.PDV) 

CALL  L IN£ ( IdOA T A ( 1 , 2 ) , 8BLAMC ( 1 ,4 1 *NSE  T . 1 . 1 5 . 1 1 ) 

CALL  SYMBOl (3. c*7. 5*. 21  , 10HR1A  BARREL. 0.0, ‘10) 

CALL  L I NE ( I bO A I A ( 1 » 2 ) tBBLAKC  (1*9)  ,NS£T , 1 .25. 1 > 

CALL  L I‘)t  ( IrtOA  i A ( 1 *2)  .BBLAMC  ( 1 . 10)  .NSET  . 1 . 20 .2) 

CALL  AXIS(-1.0*0.0*35HSHEAh  STKESS  ON  ROUTING  bANL  (HSI). 

1 * 35*  YT  ,90.0  »SHR‘FV « SHfiOV) 

CALL  AXIS(-.5,0.U,37HB£aRING  STRESS  ON  ROTATING  BAM)  (RSI). 
1*37*31 ,90.0.bEARf V.BEABOV) 

CALL  LE0tNC(6. 000, 1.222) 

CALL  PLOT (lb. 0,0. 0,-3) 

Call  AXIS(0.0,0.005HTORUC£  SPINNING  PROJECTILE  (IN-lBS), 
i*  ‘Jb.YT  .yO.O.CFV.OOV) 

CALL  AXlSfO.0, 0.0,33b TIME  f RON  PRIMER  SIRIKE  (SECONDS), 


00005310 

00005320 

00005330 

00005340 

00005350 

0000S360 

00005370 

00005380 

00005390 

VU005400 

00005410 

00005420 

00005430 

40005440 

O0005450 

00005460 

00005470 

00005480 

00005490 


c -33, xl  .0.0,  Tf  V,Ti/V) 

CALL  LINE (IbOATA (1,1) ,BBCAMC(1,4) ,NSET . 1 , 15. 1 1 ) 

cal:,  symbol  (3. a. 7. 5, .21, 1 ohm  I a barrel,  o,o.*io> 

CALL  PLOT (13.0,0.0, -3) 

C <»»*««  OUTPUT  TOR  HERCULES  BARREL  *o**««****j 


00005500 

00005S10 

00005520 

00005530 

00005540 


////////////////////  <0*.  20X, 

HERCULES  BARREL  wITm  0.  INITIAL  ANGLt  »b .966  7 
1.5') 


i#K  | Tt  (6,4) 

5 ) ORMAT (*!•••  ' 

'PREStNl 

1 a X T ANl  Y = .OlOOd<*X®«l 
WRITE (6.440) 

440  FORMAT (')•• 'PRESENT  HERCULES  BARREL  wITm  0.  INITIAL  ANGLt ,8.9b67 
1 X 1 T AND  Y=.0100rt*X»»l,5') 

*«ITE (6 , 2 1 0 ) 

BO  470  J=1  ,NS£T 

wRl  TE  (6,200)  J.18CAU(J,2) ,BBLHtR(J,6) ,BBLhER(J,4) ,briLntK(J,5) , 
1HolH£R(j,9) ,B8LhER(J,10),IBOaTA(j.I),BBLhEh (J,7) ,J 
470  CONTINUE 
wRI TE (G, 7 ) 

CALL  FPLOT  (N5t  1 , 1 * IBOATA  ( 1,2)  .BBLHERI 1 ,4)  ,0  ,SET  .St  T ,St  I ot  I ) 

WR 1 TE  (6 , 8 ) 

CALL  FPLOT (NSET, 1, IBOATA (1,1) .BBLHERU ,4) ,0 ,SE T »SE I ,SE T ,5t I ) 

CALL  AXIS(0. 0,0,0. 35HTCROCE  SPINNING  PROJECTILE  (IN-LBS), 

*>  «J3,YT  ,90.0,CFV,UOV) 

CALL  AXlS(0.O,0.U,40HPROjECTILt  POSITION  DOWN  BARRtL  (INCHES), 
-40,XP,O.O.PFV,POV) 

Call  LINE  ( loL'f  TA  ( 1 ,2)  ,BbLHER(l»4)  ,NSE T , 1 , 15 , 11 ) 

CA! L SYMBOL (3.0, ). 5,. 21 .ISHHtRCULES  bARREL , 0. 0 , ♦ 15) 

CALL  LINE (IBOATA (1,2) ,88LHtR(l»9> ,NSfcT, 1 ,25, 1 ) 

CALL  LINE ( IbOATA ( l .2) .8BLHEH ( 1,10) ,NSET . I ,20 ,2) 

CALL  AXIS(-1.0«0.0,35HShEAR  STRESS  ON  ROUTING  UAND  (PSD. 

1 *35 , Y T ,90 .0 , SHKF V ,SHROV ) 

CALL  AXIS(-«5,0«0,3 /HrfE AR ING  STRESS  ON  ROTATING  BANU  (PSD. 

1*37,  YT, 90.0. BEAR! V.BEAROV) 

CALI  LEGEND (6.611, 1,222) 


U00US5B0 
00005560 
EO0005570 
0OD05580 
00005390 
E00005600 
00005610 
00005620 
O0005630 
000i)5640 
00005650 
00005660 
000056  7 0 
OOGOS6BO 
00005690 
00005  700 
1/0005  710 
uOGOb  720 
00005730 
00005/40 
00005  750 
00005760 
000057)0 
00005  780 
00005  790 
OOOObbOO 
00005810 
000O5H20 
00005830 
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i 

5 

6 

i 


£ 


0436 

0437 

0-38 

0439 
0-40 
0-4  1 

0442 
044  3 

44  — 4 
0-44 

0446 

044  7 
04-d 


0449 

0460 

o-6l 

0452 

0463 

0464 


0-65 


0-66 

0467 

046fi 

0-69 

O-e0 


0-6  1 


9-68 
U-fc  j 
0-64 


0465 


0-66 
0-6  7 
0468 
( -69 

o-  TO 

04  71 
04/2 
0473 
04/4 
0-75 


81 


CA-L  PLOTd5.0.O.0.-J) 

CALL  AXlSIQ.O.O.O.JSuTOROGt  SUNNING  PRCJtCIILt  (IN-LBS). 

* *JS,Y  1.90,0. CFV.UL'V) 

CALL  AXlS<0.O,O.0tJJHTIMt  FROM  PRIMER  STRIKE  (SECONDS) , 
t>  -3Jtxr«0.0»TFV.TUV> 

(all  LINE ( IdOATAU ,1) ,8BLFitR(  1,4) ,nSET * 1 , 16, li ) 
call  Symbol <3. 0,7.5, .21»15hhtRCULES  baR«El»0.0,*16) 

CALL  PLOT (IS. 0,0.0. -J) 

C«4»«o  OUTPUT  FOR  CONSTANT  TWIST  BARREL  •••««** 

»RJ It (6,6) 

6 FO«maT( • I • , • < ////////////////////  *0'.  20X, 

•»  'CONSTANT  TWIST  BARREL*) 

aR I TE  < 6 ,450 ) 

460  Forma I ( ' 1 • , 'CONSI AM  T» 1ST  BARREL') 

-RITE (6,210) 

00  4dO  J= 1 ,NSE  T 

-RITE (6,200) J, IBOAlA ( J,2) ,BBLCON( J.6) .BnLCONt J,4> ,bbLCON( J,5) , 
1 oolCON ( J ,9 ) , BdLCON ( J , 1 C ) ,IB0ATA(J,1) ,BBLC0N(J,7) ,J 
480  CONTINUE 
-RITE (6,7) 

Call  FPLCTINSEI ,1 ,IB0ATA(1,2) , 8BLC0N (1,4) ,0 ,SE I , St  I .SET , SET ) 
«Pl Tt (6,8> 

CALL  F'PLCT  (nSET  , 1 , IdCA T A , 1,1)  ,BBLC0N(1 ,4)  , 0 , SE  T , St  T , SE  T , SE T ) 
CALL  axIS(O.0,O« 0 »35n TORQUE  SPINNING  PROJECTILE  (lN-LbS), 
w ♦J6,rr,90.0,(.FV,U0V) 

CALL  AXIS(0.0,0.0,404PROJEC1 lLt  POSITION  OOwN  BAHRtL  (INCHES), 
v4  -4o,XH,0.O,PF  V,PUV> 

Call  line ( ieoa i a (i ,2) .bblconi 1 ,4) ,NSti . i . 15, 1 1 ) 

CALL  SyMmGL ! J • 0 , 1 • 6 , .81 , 2 lhCONST ANT  IwIST  oARRtL , 0,0 , »2 i ) 

Call  LI  (c.doOAUd.2)  ,fa8LCCN(l  .10)  .NSET  , l ,20,2/ 

CALL  LINE  (IBOAlAd  ,2)  , sbLCCN1  (1,9)  ,NStT , 1 ,26, 1 ) 

CAcL  ax i S (- i .0 , o • 0, JShSmEak  STRESS  ON  ROTATING  daNo  (PSI), 

1 ♦ 36 « Y T ,90«0,ShPFV?6Rr()V) 

CALc  AXlSi-.6,C,Oo7rotARING  STRESS  ON  ROTATING  dANO  (Psl), 

1 *3  ! , YT  , 9.J  , 0 »[>E  A RF  V >>)t  AROV) 

CALL  LEOEF.C 's.SoO.j.wOO) 

C-LL  PLOT(i6.0,0,0.->) 

CALL  AX16(>‘.0,0,o..i6«TOROUE  SPINNING  PKOjECTUt  (IN-LBS), 

♦ ':,YT,vO«O,CFV,O0v) 

CALL  AXIS! 7.0, o.O.ojHTIME  FROM  PRIMER  STRIAE  (SECONDS), 

4 - )o , X T , o • o * TF  V , TOV ) 

CALL  LlNt ileOAlA.l .1 ) ,bbLCON(l ,4) ,NShT,l ,16,11) 

LAI  L SYMBOL (1 .0, 7.6, .21 ,21hCON6TANT  Iwisi  B ARREL » 0 « 0 , 1 ) 

Call  ploti 16.0,o.l.-3) 

call  AX!S(0.0,0.0,40HPROJtU  iLE  POSITION  DOWN  bARRLL  (INCHES), 
- -40,XP,0.0,PF V,POV) 

CALL  AXiS(0,0,O#C ,o7hBEARINg  STRESS  ON  ROTATING  BAND  (Pbl), 
i ♦ 3 7 , Y T ,9v.O  ,b£arF  V.Ht  AR()V) 

CALL  LINE ( I BOAT  A (1,8)  iBBLl ( 1 ,10) ,NSt 1,1 ,»20,4) 

Call  LINE  (1  HUAI  A (1,2)  .BBLHERil  ,10)  ,NSt T , 1 , ♦ 15 , 1 ) 

CALL  LINE  (IbDATAd  ,2)  .BBLCONI)  , 10)  ,NSt  I « 1 , *25 ,6 ) 

CALL  LINE  (IBOAlAd  .8)  ,BbLAMC  (1,10)  ,NSET  , 1 ,*J0>9) 

call  symbolic. 640, t. 048, , 07, iorria  barrel, ;.o,*io> 


0O006H40 
00005h50 
00006o60 
0I)O06h7u 
OuOObbbO 
00006890 
00006900 
Go0059 1 0 
0000S920 
u0006y30 
00006940 
00006969 
00005960 
Og00b97o 
Ou0o598.' 
00006990 
0000600U 
00006010 
00006020 
00006030 
00006040 
09006050 
00006060 
00006070 
00006080 
00006090 
00006100 
09006110 
0(1006  120 
oOuOti JO 
0u0O6i40 
99906150 
0v006l6U 
900061 79 
9006180 

4f)'.0Cl90 
OOOObBOG 
•)0c  062  1 0 
iOC'96220 
000062 jO 
O0O06240 
000626 J 
90906260 
OCO06270 
90006200 
00006290 
*>  0006300 
•>  >9063!  0 
»)'  v06J2k 
..'vOUbJjO 
J 0 9 0 6 J 4 C 
VU006360 
1.0006369 
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CALL  Sym80LO.100,-..063,.07»12HN=1.6  BARREL  *0.0  , ♦ 12) 

CAlL  SyMoOL  (6.b00»4.Sb0,.07»  iSHHERCULES  bARREL.O.O.MS) 

CALL  SYM8OL(6.701,2.b0G,.07,21HCCNSTANT  TwlST  bAKRtL ,0.u . ‘21 ; 
CALL  SYMBOL  (2.,-S.  7.b,.21 ,27Mb£AR!NG  STRESS  CCMPARISIOnS.0.0,‘2?) 
CALL  PlOY(15.0,U.0,-3) 

CALL  AX  IS (0.0 ,0.0  »4GhPR0J£CTIL£  POSIUOn  UOWN  BARREL  (INCHES)  , 
tf  ' -4O»XP»0,0.PFV,POV) 

CA’L  AX1S(0.U.0,0»3ShSHEAR  STRESS  On  ROTATING  b ANO  (PSI)« 
l‘Jb»YT,9U.  0 »SHRFV  »SH»-OV ) 

CALL  LINE (IbOATAll, 2) ,BBLl (1.9) «NSF  T ,1»‘20»4) 

CALL  CINE  (IbOATAll  ,2)  .bBLHERU  .9)  ,NS£T,  1 .. IS.  1 ) 
f Ai „ LINE (IbOA!A(l,2) ,BBLC0N(1,9) ,NS£I . 1 .‘25.S1 
CALL  LINE ( IBOATA (1.2) .dBLARC (1.9) .NSt T , 1 . «3U ,9) 

CALL  SYMBOL (6«fc40,6,45B».0?» 10HRIA  BARREL . 0 . 0 .♦ 1 0 ) 

CAl  L SYMaOL(6.S93.A,blfc..07.12RN=1.6  BaRkEJ  ,0.0, ‘12) 

CAlL  SYMbOL(S.UOO. A. 520*. 07. ISHHERCULES  BARREL. 0 . 0, ♦ 1?: 

CAl  Symbol (0,632.2, 60A,. 07. 21HCQNSTANT  TWIST  fcARREL .0, 0 . ) 
CALL  SYMBOL (2. 2b. 7. 5., 21 .2SHSHEAR  STRESS  COMP AR I S IONS ,0.0 , *2b) 

/ r * RMA  T ( • 1 ‘ » ‘GRAPH  CP  TOKOUE  VS  POSITION*! 
a HmmATCI*.  ‘GRAPH  OP  TOROUE  VS  TIME*) 

200  PORmaTC  • .I3.2P9,3.P16,3.f  16.A  .2F1G.2.I  B.S.F  13.  J.  19) 

210  PORMATC  •,//,'  J POSITION* »5X« 'Y* ,10X, ‘TORQUE'. 6X,‘  SHEAR 
AEA  • , 

ljx- ‘Shear  stress  bearing  stress  Tint  rifling  angle  j< 

2/.<  '.AX. '(INCHES)  (INCHES)'. 

2ax,  • ( In-loS)  ' .6A»  • ( 1nCHES#®2)  • .6X, • (PSD  • .10X. • (PSI)  • . 

AbX, ' (Sf CONCS)  (OEGPEES) './//. • ') 

CA..L  Trap (NSt T, IbOATA (1,1)  . BBL 1 ( 1 » A ) , SUM  1 TT ) 
call  T«AKNSET,I8i)ATA(l!l).BBL2(l.A)  .SLM2TT) 
call  TkaP  (nSE T . IbUA  TA  ( 1 , 1 ) ,b8L3  ( 1 . A ) , Sl<M3T  T ) 

Call  Trap (NSt T , IBOaTa (1,1) .bbLRER ( 1 »A) » Summit ) 

CALL  TRAP (NSL T. IbUA TA( 1,1) .BbLCON(l.A) .SOMCIT) 
u»cL  TRAP (NSL  r , IbOATA ( 1 . 1 ) .BbLAMC ( 1 , A ) , SURA  1 T ) 

CALL  TRAP (NSlT, IBOATA ( 1, I) ,6bLl (1,10) .SUMlbT) 

CALL  Trap (NSLT, IBOATA (HI) ,6bL2(1.10) ,SUR2o(> 

CALL  trap (NSE T, IBOATA (I ,1) ,bBL3l 1 ,10) .SUR3BT) 

CALL  TRAP  (NSt T,  IbOATA  (1,1) , BBLHERU,  10)  .SUHHbT) 
call  TRARINSET I IbOATA  (1,1)  .BBLLOM1.10)  .SUHCBT) 

CAl L Trap (NSLT. IbOATA (1,1) .BBLAMC (1,10) .SUHABT) 

Call  TRAPtNSET, IbOATA (1 ,1) ,BBL 1 ( 1 ,9) .SUMIST) 

CALL  TRAP (NSET, IBOATA (1 ,1) »BbL2(l .9) .SOM2ST) 

CALL  trap ( NSt T.IbOAIAI 1,1) »BbL3(l,9> » SUM3ST) 

CALL  trap  (N'SET.  IbOATA  (1,1)  .BbLHtR  ( 1 .9)  .SOMHST  ) 

CALL  TRAP(NS£T,IbOATA(l ,1) .BbLCON (1.9) .SUMCST ) 

CAlL  TRAP (NSET. IbOATA (1,1) ,dbLAMC(l,9> .SUMAST) 

CAlL  TRAP  (NSET,  IbOATA  (1,2)  .BBLK1.A)  .SUM1TP) 

CALL  TRAP (NSET. IbOATA (1,2! ,bbL2(l ,A) .SUM2TH) 

CALL  TRAP (NSt ( .IBOATA (J ,2) <bbL3 ! 1 . A ) .SUM3TP) 

CALL  Trap (NSt T, IbOATA (1,2) ibbLHER (1,4) , SUMHTF ) 

CALL  TRAP (NSt T, IbOATA (1,2) .bbLCON ( 1 .4 ) . SUMCTP ) 

CALL  T)-  AP  (NStT » IbOATA  ( 1 ,2)  <8BLAMC(1,4)  .SUMATP) 
call  TRAP (NSt  f. IbOATA (1,2) ,BbLl (1,10) .SUMleP) 

CALL  TRAPfNSET, IbOATAll, 2) »BbL2(l,10) »SUM2bP) 
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CALL  TRAP (NSt T » IbOA T A < 1 ,2) ,bBL3 (1.10) .SUM3BP) 
CALL  THAPlNStr.ldOATAd ,2) .daLhtfid ,10) .SUPrtBP) 
CALL  TRAP  <NSE  T . IbOATA  (1.2)  .BbLCON  (1.10)  »SU«CbP) 
CALL  TPAP INSET, IdOATAIl .2) .BBLAMC (1.10) .SUMAdP) 
CALL  TRAP  INSET.  IdUAT  Ad  ,2)  »bbLl  (1.9)  .SUM1SP) 

CALL  TRAP INSET . IriDA  TA (I .2) .BfaL2 (1.9) . SUM2SP) 

CALL  TRAP (NSlT, IbOATA { 1.2) .BaL3(1.9) .SUM3SP) 

CALL  TRAP(NStr.lB0ATA(l,2)  .BbLPEP  (1 .9)  .SL'MhSP) 
CAUL  TRAP  (NSE  T . IbOATA  (1.2)  »8dLCON  (1,9)  .SUMCSP) 
CALL  TRAP(NScT,luOATAd»2)  .ddLAMC  (1.9)  .SLMASP) 
«R( Tt (6,775) 

7 75  1 ORmaT ( • 1 * . /////////»  * 


t*  / f 

INTEGRAL  VALCtS  

SX. 

•>000/030 

£ 

brltAH 

STRESS  *••«•*•**,, 

b*  * 

O0OU7OA0 

BEARING 

STRESS 

/. 

OU00/0S0 

• «rt  i ire 

uRT  POSITION  *, 

b* « 

■;ooo7o6o 

,s 

» CRT  d ME 

«RT  position  '. 

SX, 

O0OO/070 

< UR  I TIME 

wRI  POSITION 

/» 

0000/080 

I* 

' (IN-LH-SeC) 

(IN-Lft-IN) 

5x, 

00007090 

& 

• (PSI-SeC) 

(PSI-IN)  *. 

S*  f 

0000/100 

& 

• (PSI-SEC) 

(MSI -In)  *, 

//) 

0000/110 

*RlTE(6.7/6)bUNlTT.SLMlTP.SUMlSr,SLMlSP,SU>/lbT,SllKlHP 
7/6  FOMAIC  *N=1.6  BARREL'.  /.  3(E16.7,E16.7,SX> ,/) 

uRl  TE  (6,  / 7 7 ) SCK2TT  ,SOM2TP,SUM2ST  ,SUM2SP.S0M28T ,SUM2BP 
///  format ( • *.  *N=i.e  barrel',  /,  j(Ei6.7,Eib.7,sx) ./> 

wR 1 TE  < 6 , 7 76 ) sc«3  d . SOM  3 TP , SUM3ST . SUM-3SP » SUM3B  T . SUM3nP 
7 76  FORNAX  • *N=2.0  BaRREl ' . /.  3 (El6. 7 ,t 16. 7 ,5/ > < /) 

»KI  Tt  (6. 7/9)  SLMPTl  dUPHfP.SUMhb)  , SUMHSP » SLMPBT . SUMMbP 
/ 79  TORmaTC  'HERCULES  BARREL  ' » /,  3 (E 16.7 ,E 16. 7 ,5X) ./> 

•«PI  f E (6 , 7d0)  SLMCTT  .SuMCTP.SUMCST  , SUMCSP.SLMCHT  .SUmCBP 
/BO  F Ok  •‘.ATI*  'CONSTANT  TWIST  dCKRE'L  * , /»  3 (t  16. 7 ,t  16.7 ,5x)  ,/ ) 

*RI  TE(6.7H1 ) SLMATT  , SUM ATP » ,MA5I  , SUM ASP » SUMABT  , SUMABP 
7dl  FORMAT!*  *.  * RI  a dAR«£L  * , /»  3 (El  6. 7 ,£16. 7 ,5X ) ,/) 

CALL  FaCTOMI.U) 

CaLu  PLOT  db.O.v.i),- >) 

CAul  AxiS(0.U, 0.0, 40-RROjELT ILE  POSITION  OOwN  BARREL  lIw'MtS), 
i»  -40»AP,0.«,Pf  V.POV) 

CALL  AXlS(0.0,0,0.3\>rTCKOUE  SPINNING  PROJECTILE  UN-LBS)  . 
l*J">.YT,90.0,OFv»COV) 

> -!.L  LI  .EddOATAd.2)  ,bt)Cl  (1.4)  ,NSE  T , 1 , *20 » 0 ) 

CALL  LINE  (ldOAidj  »2>  .bBLdd  ,4)  ,NSE  I » 1 » ♦20,2) 

CALL  L 1 n£ ( IBOA I A (i ,2) .bBLJll ,A) , NSET » 1 » *20 » 4 ) 

CALL  LINE  del) A I A (1 .2)  .bBlhER  ( 1 .4)  ,NSE  f , 1 . ♦ 1 5 » 1 ) 

CALL  LINE d BOAT A(l, 2) ,dBLC0N(l,4) ,NSET , 1 , *25 » 5 ) 

CALL  LINE  ( IBOA  I A (1 .2)  .BBLAMC  (1.4)  .N'SET  » 1 » * JO  ,9) 

CALL  SYMBOL (6.640,6.042, .O/.IOPRIA  BARREL . 0 , 0 .♦ 1 0 ) 

CALL  SYMBOL (V , 145 ,3.990. .07 » 12PNs 1 ,6  BARREL , 0. 0 »♦ Id) 

CAt  L SYMbOLd. 100.4, 351  *. 07»12HN=l,rt  BARREL  » 0. 0 » ♦ Id) 

CALL  SYMuOL (6.b92,4.6B2».07,12hN=2.0  BARREL . 0 . 0 ,♦ 1 2 ) 

CALL  SYMBOL (o. 016.3. 541, ,07. ISRMERCULES  BARREL ,0 . 0 ,♦ 1 5> 

CALL  SYMBOL (d. . ‘65,6.635,. 07.21RC0NSTANT  (LIST  BARREL .0,0, *21) 
CALL  SYMBOL (E.cb, 7.5, .21 ,27b  TOROUE  COMPARISONS . 0.0 , ‘2/) 


( 
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. PLOT  US. O.O.O, -3) 

. AXlS(0.0,0.u,33HTIM£  FROM  PkJMEH  STKInl  (SECOnOS)  , 
-33,XP,0.0,TFV,TDV) 

. AXIS (O.U.O.O  ,35hTCKU11£  SPINNING  PROJLLULt  (I.N-LdSi. 
.YT,90.0.UFv.COV) 

. L INE  ( I riOA I A ( 1 * 1 } .B8L1 (1 .4) ,NSET , 1 ,»20,0) 

. LINE  UeOAlAU.l)  .BBL2U.A)  .NSET * 1 .*20*2) 

. LINE  UfaOAl  All,  1>  ,08L3(l»4>,NSET.l.*2t>»*> 

. LINEtIbOAlAU.il  ,88LHEk<1  *4)  ,NSET *1**15*11 
. LINE  UbOAl A ( 1*11  .dBLCONU  *A1  *NS£  1 , 1**25.51 
. LInE<IBOAIA(1.1)  .86LAMC  U *‘*1  ,NSEr.l,»Jo,9) 

. SYMBOL (6.510*7.100* .07.10HRI A BARREL, O.O, *10) 

. SYM80L<7.J90,3.910,.07,12hN=1.6  BARRE,  .0,0. *12) 

. SYMB0L<7.39U,4.315,.07,12BN=1.8  BARREL *0.0* ♦ 12) 

. SYMBOL (7.390,4, 625*. 07 , 12PN=2*  0 BARREL ,0.0, ♦ 12) 

. SYMBOL  (7.390 ,3.452, *07,1 5hhERCULES  BARREL. 0.0, *15) 

. SYMBOL  <6.3 3S . 7,962. .07, 2 INCONSTANT  TWIST  BARREL.O.O* *21 1 

. symbol u . 75 *7 ,s* *21 » ibhioruue  comparisons, o.o,*18> 

. plot (20.0,7.0,999) 


FORTRAN  IV  G LEVEL  21  A APC30  DATE  = 7516b  0//44/46 


OOOl 

SUGwOUTINE  AAMt JO (X, XI. X2, START, R.RHO.AoCRE. PHASE. POL AH.APROj, 

000C7630 

1 Y, T. I 1, T2. CYUX,u2YDX2. TORQUE. ALEFT. SHEAR. HEAR) 

00007640 

0002 

RO=-i .26797E-04 

00007650 

0003 

6l=  O.26041E-0S 

00007660 

0004 

82=  1.496S1E-03 

O0007670 

00°5 

6J=-4.28221E-0fc 

00007680 

0006 

84=  d.6l423E-09 

00007690 

0007 

XX=X-START 

90007700 

0O08 

XXl  = XX 

OU007710 

0009 

XX2=XX»XX 

00007720 

0010 

XX3=XX»XX«XX 

00007730 

0011 

xx<.=xx«xx»xx«xx 

00007740 

0012 

Y=L;0.Bl»XXl*b2«XX2*83»XX3*e4<>XX4 

00007750 

0013 

T = Y/H 

tiOOO  / 76u 

0014 

OYi)x=Hl  »2.  «H2*xxl  ♦i.‘,H3*XX2»4  ,«H4«xx3 

uovomo 

0015 

L'2yua2=2.«B2  ♦6.«H3»xx1*12.<>B4»XX2 

00 007780 

0016 

n = xl»OYCX/H 

0000/790 

0017 

12=(Xl<*Xl»r!2Y0X2*x2«LYCX)/h 

0000/800 

0018 

IUROoE=PCLAR»T2 

OuuO  78 1 0 

C 

ShEAR  AREA  CALCULATION.  AREA  IS  AklA  SWtPI.  ALEH 

IS  AREA 

OU007820 

C 

**•*  REMAINING  06  THE  ROlAlING  HAND  PER  SEGMENT 

00007830 

C 

**«  ORIVE  IS  OkI/ING  EObc  ARlA 

mOOO  7840 

L 

»«•«  SUMFOk  IS  SUMMATION  OK  FORCES  AT  RAOIOS  To  PROOUCt 

IOKOOE 

00007850 

0019 

APE  As . 06480 00®C  YOX 

4 1007860 

0020 

ALr F I = (0.03J462/-AREa)«20.0 

P0007870 

0021 

So’-rOP=rCRLut/R 

00007880 

0022 

SRt  ar=suwfcr/alf:ft 

00007850 

0023 

UR! v£  = < • 3600/CCj ( AT  AN (CYOX) ) ) “*0.0°0.019 

uOOO/900 

00*4 

HE AR=SUMFOR/uR I Vt 

0000/910 

0025 

RETURN 

00007920 

0026 

ENi 

U0007930 

FORTRAN  IV  G LEVEL  21 


CONST 


DATE  = 7516b 


U//44/4b 


bU-RUUTlNE  CONST(?,i.'..P£,tNG«/..Xl  t X2.AKTt«.RnO,AeOHr:.  PHASE,  r, 
iTiTi«T2*rofiuu£.4L£r  r.  >YDXtL'2Y0X2. shear. beam 
c 

C®  «**«*  CONS  I AN  r UlbT  CAlCULAT  ions  ®< 

c 

P*)LA«=3.«043a-0‘* 

Y=SLOPE®  (X-ENO)  ♦AM  1 
T = Y/R 

Il=SLOPE*Xl/« 

T2=SL0PE»X?/K 

ro>tjuE=PCLAR«r2 

i)yox=Slop£ 

U2y.jX2=0«0 

C ®»«*  ScEAR  AREA  CaICLLATIUn,  AREA  lb  AkEA  SWEPT.  ALEH  IS  AW  A 

C »»•«  REMAINING  ON  Tut  ROTATING  BAND  PER  SEGMENT 

c «■««»  bL-MFOft  IS  SUMMATION  OT  fOHCES  AT  RADIES  TO  PRODGCt  TORuUE 

t ®»®»  DRIVE  IS  URIvING  EDGE  AREA 

SORF0R=T"RCUt/h 
all!  T=0.i)33462fc7®20.0 
Snt AR=SOmFOR/AL£F  T 
d£ aR=SumFOP/. 1E22270 
k£ TORN 
t ND 


t 


FORTRAN  lv  G LEVEL 


07/4* /4b 


• Uf~UUTJN£  FPLCT  (N.M.X.Y.LCOUE.XMIN.XMAA.YHIN.YMAA) 

SUBROUTINE  FPLuT 

A SUB-  'UTINE  LSING  Ih£  UnE  PRINTER  TC  PRODUCE  A PLOT  OF  OP  TO  tIGHT 
0-i'JI.MAfE  ARRAYS  VERSUS  one  ABSCISSA  ARRAY.  FPLOT  may  be  USED  «.XTH 
If*L  SAIT  IV  COMPILE*. 


M INPUT  INTEGER  VALLE  ThAT  SPECIFIES  NUMBER  OF  VALUES  OX  X. 

m input  inteuEr  value  that  specifies  number  of  sets  of 

OROINATES  TrAT  are  to  BE  GRAPHED,  m may  BE  from  1 TU  d. 
a input  n dimensional  real  array  containing  values  of  abscissa. 

Y INPUT  N M OINENSIONAL  REAL  ARRAY.  EACH  VALUE  OF  M 

SPECIFIES  * SET  OF  ORDlNATtS.  EACH  VALUE  OF  Ytl.M) 

ShOULC  CORRESPO.-.U  TO  its  ABSCISSA  VALiiEi  X(I).  FOR  I 
FROM  1 TO  N, 

LCOOE  IF  LCCOe=G  « ThE  MINIMliMS  AnL  maXIm.umS  OF  TrtE  SET  OF  VALUES 
TO  t:b  PLOTTtO  A«E  FOUND  FROM  TnE  VALUES  IN  THE 
X ANU  Y ARRAYS. 

If  LC00E=1.  THE  USER  SUPPLIES  TutSE  VALUES  IN  THE 
AhoLMeNT  LIST. 
aMJNi  XMA  YMIN,  YM  AX 

Th£  MINIMUM  ANO  MAXIMUM  Of  THE  VALUES  OF  TnE  ABSCISSA 
ANU  MINIMUM  ANO  MAXIMUM  VALUES  OF  ALL  (HE  UROINaTES. 

I * I ME  NS I UN  X(N) .Y(N.M) .XSCALE(ll) .YSCALE lb) 

INUOER®-  MARK *•••/. 

U INC  UOl)  .(JOT/*. '/.UASf>/«-;/.BAR/*I»/. BLANK/*  */ 

!F('_COOE.EC.l)  gc  to  p 
DETERMINE  THE  MINIMUM  AND  MAXIMUM  VALUES 
*M|  i=X(l) 

«mAx*X(1) 

Y"|MSY(1.1) 
r*’/.x  = Y(l  ,1) 

' D IV  1 = 1 »N 

xmin=akin1 (xmin.x(I) ) 

X'IAX  = AMAX  1 UMAX lX  < 1 ) I 

./U  PU  1 = 1 »N 

JO  PO  J=! ,M 

Y"!  I=AM IN' 1 (YMIN  , f (1  .J)  | 

Y 'Ax  = Am/,x1  (YMAX.Y  (i  «„)  ) 

SCALl  ANU  PtOT  1 HE  POINTS 
XlfC=(x"".X-XMIN)/K/. 

Y , NU= I v", IX- YM in )/Sv. 

I -1AXX  = YMAX 
X '(  ALE  ( I > =XM1N 
■>/  110  i=E.U 

V /V.alE(I)=XSCAue(1-1)*(XINC°10.) 

YV  .LE  < I ) =YMAX 

UO  IPO  f = 2 • 6 

V Y ,.LF.  ( 1 1 = YSUALu  < I - 1 ) ” ( YINC0 1 0 » ) 

LlNt  CT=1  V 

if  <■*-!  * iso.iso.ieo 

0 MArM  I)  =vARn  (V) 

o uo  uoo  k i = 1 1 s i 


F0«1HAN 


IV  b LlVLL 


■ <>  140  J = 1 • 1 0 1 
Ll*sfc  (J)=dLANK 
(JO  161  K=1,H 
b»  lol  L=l«n 

GO  JO 

if  (L lt»t  (NXL ) • £(.  «8LANk  ) GO  TO  J7Q 
If  iLl>\)  (NXL ) • Eu.F'AfiK  (<)  ) bO  TO  170 
LI>VF.  INXLIaf'AKKUO) 

60  TO  161 

L if.'fe  (fJXL ) =f'AHK  (M 

wUF.TIMj£ 

V4axx=ymaxx-yinc 

If (LlNfC 1-1 0) lfcO, ISO* 190 
LlOFCTsl 

^WlTt(6,?00D  YSCALfc  1 <KI*  101/10)  ,DASH*LlN£ 
l FORMAT C ' ,F  14.5.A1  ♦ 1 0 1 A 1 ) 

■0  TO  1300 
L INI  C T=L 1 N£C  I ♦ 1 
«rtjrt(6tll00>  L'OI.LInE 
I FORMAT!*  *.14X,Al,l0lAl) 
l COMINUE 

00  200  1=1,101 
LlN£'<l>=OOT 
00  210  1=1.101,10 
L IU£  ( I ) =*:AR 

hk I TL (6 , 1 SOU)  LIAE 

f'JMAT  1 1 ’.IbX.loiAl) 

^1TE.(6.20°2)  USCaLEU)  ,1  = 1,11,2; 
f ORMAT  ( • • ,6(2X,F'16.S,AX)  ) 

^1T£  (6,2003)  (XSCALt  (I)  ,I=2,)0,2) 

FORMAT!'  ' , 10X,a (2x,F'l4.5,4X) ) 

XINCHSXINColO. 

Yl'.’CH=YIN'Cof,. 

wwl  TE  (6,9000)  X1AC.Y1.NC 

,K"::'.Ei2a::;SC4t£  15  «« 

RE  TURN 
ENO 


0 7/44/46 

0000C700 
00008710 
00008720 
00008730 
16*  00008740 

O00087S0 
00008760 
00008770 
00008  780 
00008790 
00008800 
00008810 
00008820 
00008830 
00008840 
00008850 
00008860 
00008870 
00008880 
00008890 
00008900 
00008910 
00008920 
0000b930 
00008940 
00008950 
00008960 
00008970 
00008980 
00008990 
00009000 
00009010 
00009020 
00009030 
00009040 
*•£15,6)  00009050 

00009060 
“SCALE  IS  ',  00009070 


00009080 

00009090 

00UU9100 


F OPIHAn  lv  G LEVEL  2) 


GAINP 


OA1L  = 75166 


07/99/96 


0001 

C 

StJBKUOTINE  GAInH  { JtPf  a« 
102y0x2,S)iEaP«8Eap«x,xI  « 

2AMUPE ) 

0002 

XX=X  ♦ XP 

000  1 

lE(XX.LF.O.O)  C-0  TC  10 

0009 

Y=P«  <XX*»A) 

0005 

1=Y/H 

00u6 

A-jrft-1.0 

0007 

•)N=AUS(A-2.u) 

0008 

,Y,)X  = A«Pb  (XX*«AN) 

0009 

i/2Yi)X2  = AN*>A«P/(XX<>'*aM 

0010 

f l=()YOX*Xl/P 

0011 

T2=  (l)Y0X°X2*L<2YIJX2*Xl  «X 

0012 

1 <)P0UE=AP0l  AP°  1 2 

VI/  I 1 
vO  1 4 
lOlS 
0 1 1 <> 
OOl  7 

Ou  IV 

Ov  «-•> 

oil- 1 

uo^-> 
CO/  1 
UO'A 

0 v<5 

y.>P6 

uO/  / 

OUe  < 
00^9 


'-'*«<>  SrEAP  APtA  CALCLLAT  ION,  aPEA  IS  APE  A S«cPT,  AU  H A»tA 
°°-*  P^AIMM,  ON  ImE  POUTING  BAND  PEN  SECANT 
‘'°°0  si.PPOh  Is  SL*si'AT  ION  01  FoPCES  AT  PADiUS  TO  PPOUGCt  TOKOU 
««»o  oPIvt  IS  UPlvlNG  tOGt  AN£A  ,0t 

ASIl)E  = .360u/C05  (A  TAU(OYDX)  ) 
i<SiOE=<>, 360999 

CSIJt=0.360u*,(CYCX“<).  05290/81 
SSJOfc=&.SOy«(ASIOt«BSICe*CSIOE) 

55/ *-Ss?"^ii?y  I0E>  * tSfc,0E-BS1®t » * CSS  I0E-CS1UE » XS51UE  > 1 

«Lr.ET=<0. 0339626  7-aK*  A)*20.0 
OP  I VE=AsrOt«2o.O<>0.025 
S'I’-EOHsTCPCUC/k 
5ntAP=SU''r  CP/ALcr  7 
oEaW=SUpKOP/DPIVE 

GO  TO  <*0 

10  IE (6.20)  J,A 
20  1(>P-1AT(*  i , t «ooou»BaoBe« 

12UfX) 

AO  CoTINUE 
"1  I «>)<N 


J=»  »IA, I 


N='»Fb.2»'  Xx  IS  .Lt, 


O0oO9l 10 

00009120 

00009130 

000091AO 

000091SO 

00009160 

00009170 

00009180 

00009190 

OOJ09200 

&0009210 

1)0009220 

00009230 

00009290 

00009250 

00009260 

00009270 

00u09280 

00009290 

00009300 

00009310 

00009320 

00009  130 

00009390 

00009350 

••0  J09360 

0JO093/0 

00009380 

UOO09390 

O0009A0O 

0OO099 1 0 

00009920 

0OO09930 

O00O99A0 

00009950 

UoO09a60 

0oo09a  70 


A-21 


Copy  available  bo  DDC  does  not 
permit  fully  legible  reproduction 


RVIkAfc  IV  d LEvtL  2 1 


LtGt'NU  DAHi  = 75166  0//99/96 


0001 
0002 
oOOJ 
00.  19 
t>005 
0006 
0007 
oOOd 

0009 

0010 
0011 
0012 
oon 
oou 

0015 
00  1 6 
UO 1 7 
0018 

0019 

0020 

0021 
0022 


S>i«HOUfl.\E  UGt'VCUt'tYPPP) 
y2=vppp 

lymap=xp-.26 
ymyP=yp»  ,07 

..AH  >yw«OL  <bYi-xP,StJ'rPi.l9.11.iy.0.-li 

trv'xP=SY.'>xP-.2i 

l At  1.  SYMHOI.(SYr'XP»SYwYP..l5»»ll*O.0«-<*: 

. All  SYri-OL (XP . YP. . 1 A .6HTOkUUE .0.0 *o 

, .P=bY*YP-.2 

CALi  ^VMPOL  (SYPA-.bYf-  rPt.19t2tO.Ocl 
SY^».-=SYPxP*.21 

< SrM-jOl  (SY6  Ap,SY"YP.,  19.2.0. 0t~>» 

(AIL  IYUcOl (XP.YP., U,  19mjtAKIfu>  SlkLbS.O.0.19) 

riJ=YP-.2 

;;Vf.Vt-r2YN'YP-.2 

l -LI.  .TYM80L  (SYXXP.bYWYPt.  19.1,0.0.-11 
ir9xP=SYPXP-.21 

LAl.L  SrMH0LC5Yf'XP,bY''YP..l9,l.O.0,-5) 

C A i i . bY‘180L  (XP.Tp,,l4, 12HSht«W  bTPESS.O. 0.121 

fc  *• 


O0009«t80 
000O9990 
00009b00 
00009510 
00009520 
00009530 
O00095<t0 
00009550 
00009560 
000095/0 
00009560 
00009590 
00009600 
O0009ol 0 
00009620 
00009630 
•/O009690 
O0009650 
OOOo  if » 0 
.0009t,/0 
•>00O9Ort0 
00009690 


t 


A-22 


lUKTPAN  JV  0 LEVtL  21  LfcGNUl  OAlt  = 7SJfcb  07/A4/A6 


U001 

SUrcOUl!.\?  LfcGNUl (XXx.YYY.NUM) 

00009700 

0002 

xPrtfjfc=XXX 

00009710 

0o03 

YPAr,E  = YYY 

00009720 

UOOA 

SYmxP=XPa6{ -.2fc  . 

00009730 

UftOS 

SY*-Yr=YPAGc«.0? 

00009 /AO 

00  O') 

1 ► ( • (OM  .£0.2)  60  TO  1ft 

00U09750 

0 007 

CAM.  SYM(=0L(SYMXP.SYMYF.,1A.  5«U.0«-1) 

00009760 

0006 

bY-xxP=SYPXP-.ai 

00009770 

O009 

C Ate  SYMBOL (SYMXP  *SY-YP •• 1A  * b.O.Oi-A) 

00009760 

0U10 

ca;  l Symbol  (xpaoE.  « ypage « • l a *bhpos i i ion*  o • o * bi 

00009/90 

0011 

o<>  TO  11 

00009BOO 

0012 

10 

COM  I Nut 

00009810 

00!  i 

>' xP=sy«xP-«21 

U0009820 

00 1 A 

11 

C.VNJ InUE 

00o09o30 

OOlb 

*PAot= YPAGE “.2 

000098AO 

0016 

SY*"P  = SY«YP-,2 

000096SO 

0017 

V ALL  SYMttOL (SYMXP  »SYmYP» . 1A  » 0 » 0 . 0 « - 1 1 

00009660 

00  IB 

SYMXP-SYWXP*.21 

00OU9670 

0019 

Cau  S”M60L<SYMXF.SY''YF,.1a,  0*U.U«-A> 

00009H8O 

O020 

CALL  S >MdOL  (XPAOti YPAGE.. 1a *6hVfcLOCIIY.O.O*«> 

U000989U 

0021 

rPAnt=vPAOf.  ~.2 

00009900 

J022 

sYMYP=')YMYP-.2 

00009910 

0023 

LAI L SYMBOL (SYMXF.SYMYP*. 1A*1 1 *0.0*-l > 

O00O9920 

O02A 

S Y''-xP=SYMXP-,  21 

00009930 

002S 

Call  SYMBOL (SYMXP,SYMYP..1A. 1) .0,0*-A> 

000099AO 

. 02b 

CALL  SYMBOL (APAGe. YPAGE*. 19. l2HACCELfckA T ION . 0 . 0 . 12) 

O00099S0 

0027 

YPA<it  = YPaOE*«2 

HO00996U 

0 t)ch 

SYS  yP=SY«YP-.2 

OO0099  7(1 

0029 

CAll  SYMBOL (SYMaF i SYMYP* .1A.12*0.0*-1> 

00009980 

OO’O 

SYS-xP  = SYMXP«  .21 

y0009990 

ooM 

CALL  SYMBOL ( SYm xP , SYm YP . . 1 A , 12 , 0 , 0 » -A ) 

uOOlOOOO 

oO.‘? 

L all  SYMBOL  (APA6tiYPAufc*.lA»oMH6fcSSU(<fc. 0.0*8) 

00010010 

003  1 

XPAIjfc  = X X X 

(>0010020 

Oy  jA 

YPA6t=YYY 

00010030 

003S 

«t  SllH.N 

-OOIOOAO 

00  jo 

L,.  ’ 

000100S0 

A-23 


FOPTPAN 

Jill)  I 

OUo? 

1 ot  1 
•>004 
v 00b 
0006 
<.007 
0008 
0009 
OOlU 
0011 
•'Cl? 
o013 

0 J 1 4 

00  IS 


Copy  cr/cdlable  to  DDC  does  not 
j^rmis  fully  legible  reproduction 


iv  o Lt.vet  ?i 


14AP 


04Tt  = 7S166 


• >••41,1,1  J\£  fhAP  (4  .XX*  YY  .SUP) 

•<•  4l  >*  <?S?)  .YY(2b<:)  .AoUMMY  l?S?l  •YUUHMY  (Hb£) 

• ‘ S 0=1 «N 

• . i.'t(J)=XX(j> 

• ‘Uf’"Y(J)=YY(J> 

5 • Ovi  l 'O.t; 

•or- =0.0 

■>l.  .\P=fv—  1 ; 

:>lS=l»-<» 

>'■  . I-  t *M«AP 

10  CUMIUUC 
Pt 
£M> 


07/44/44 

00O10040 
•lOOlOo/O 
OOOlOObO 
o001009o 
f'OOlOlOO 
00010110 
000101?0 
oOOlOl JO 
00010140 
OOOIOISO 
uOolOlhu 
uOOlOl  ' 
vOOlUiOu 
oOO 1 0 1 90 
00olO?00 


Copy  available  to  DDC  doe*  nut 
peastt  laSf  legible  reproduction 


•Awr-i  1.  :t  Jtoxft'  liHlAL  ‘ i.'M.r  LA|I.  **.U06hSVU6»X6»1.6.  H«1.6  HAMMEL 


j *>csi  i nit.  i !•■«<: ji 

(INCH'S)  (INCH  SI  ( IS-LHS) 


bHt«M  AHcA  SHE  AM  ST-tSS  ML  AMI  HO  ST6ESS  tint  W|rLfMj  AHULL 

(INCHES**?)  (MSI)  (MSI)  ' (SECOAuS)  (OE'GHEtSr 


1 

-4.  *42 

l'*V 

0.0 

0.0 

0.0 

0.0 

o.o 

1 

d 

• A*  .*>**• 

»eu 

u.O 

0.0 

U.O 

0.60020 

0.0 

2 

,1 

•H  .4  / » 

0.0 

0.0 

0.0 

U.O 

o.ooo2o 

u.O 

J 

4 

•««.d«*b 

0.0 

•f.l) 

U.O 

0.0 

o.uuoju 

0.0 

«. 

d 

-4.SM/ 

o.o 

0.0 

0.0 

0.0 

U. 00040 

>.o 

fs 

-4.bOb 

'(.0 

0.0 

O.u 

0.0 

O.OOObo 

o.o 

6 

r 

o.o 

0.0 

0,0 

U.O 

0.00060 

J.O 

/ 

n 

•4 • 2ft  0 

IUV 

U.O 

0.0 

U.O 

0.00070. 

J.U 

V 

11.0 

u.O 

U.O 

o.u 

u.oOOtfu 

0.0 

iu 

-J.bO* 

O.U 

f.() 

O.o 

U.O 

u.uuovo 

o.u 

lu 

1 1 

-J.6*b 

O.U 

0.0 

o.u 

u.O 

0.0U10U 

u.O 

22 

2c 

-J.46C 

u.o 

0.0 

U.O 

0.0 

0.UU1IU 

0.0 

Id 

l \ 

-jMdO'J 

»i.o 

U.O 

0.0 

0.0 

0.00120 

0.0 

1.1 

f- 

j/ 

t'.U 
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0.13123222*05 

0.12790902*05  * 

0.12475232*05  * 

0.1219S34E*05  « 

0.11910982*05  « 

0.11635482*05  * 

0.11349892*05  * 

0.11064212*05  * 

0.10  73695E*05  * 

0.1037077E*0S  * 

0.9923262E*c«4  * 

0.9377691E*04  * 
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